Print Autodesk AutoCAD Drawing to Image Using Visual Basic 6.0

Universal Document Converter is virtual printer software that saves any document you print as an image file. Below is a source code example that can help you to accomplish your task with Universal Document Converter. Please let us know if you cannot find the solution you need.

' Autodesk AutoCAD 2000 or above and Universal Document Converter
' should be installed on your PC

Private Sub PrintAutoCADDrawing(strFilePath As String)

' Define constants
  Const acExtents = 1
  Const acScaleToFit = 0

' Run AutoCAD as COM-server
  On Error Resume Next
  Dim App As Object
  Dim Drawing As Object
  Dim Layout As Object
  Dim ActiveSpace As Object

  Set App = CreateObject("AutoCAD.Application")

' Open drawing from file
  Err = 0 ' Clear GetLastError() value
  Set Drawing = App.Documents.Open(strFilePath, False)

  If Err = 0 Then
  
  ' Change AutoCAD preferences for scaling the drawing to page
    If Drawing.ActiveSpace = 0 Then
      
      Set ActiveSpace = Drawing.PaperSpace
      Set Layout = ActiveSpace.Layout

    Else

      Set ActiveSpace = Drawing.ModelSpace
      Set Layout = ActiveSpace.Layout

    End If

    Layout.PlotType = acExtents
    Layout.UseStandardScale = True
    Layout.StandardScale = acScaleToFit
    
  ' Plot the drawing
    Call Drawing.Plot.PlotToDevice("Universal Document Converter")

  ' Close drawing
    Call Drawing.Close(False)
    Set Drawing = Nothing

  End If

' Close Autodesk AutoCAD
  Call App.Quit
  Set App = Nothing

End Sub