Print Macro
Print Macro
(OP)
I'm in need a what i think is a fairly simple macro. The macro would simply plot the drawing sheet to a prn file (check print to file box in the print dialog box)in the directory that the drawing file resides. I went to record a macro to do this but once the print dialog box comes up solidworks can't record these steps anymore. Any insight or help is much appreciated.
Kind Regards,
Kind Regards,






RE: Print Macro
CODE
'
' Preconditions: Drawing document is open.
'
' Postconditions: Drawing document printed to file.
'
'------------------------------------------------------
Option Explicit
Sub main()
' Printer
Const SWPrinter As String = "\\DOPEY\HP4100-TRAIN1"
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDocExt As SldWorks.ModelDocExtension
Dim swDraw As SldWorks.DrawingDoc
Dim PathName As String
Dim PrintFileName As String
Dim nPrintSheets(1) As Long
Dim vPrintSheets As Variant
Dim DefPrinter As String
Dim i As Long
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDocExt = swModel.Extension
Set swDraw = swModel
' Strip off SolidWorks file extension (.sldxxx)
PathName = swModel.GetPathName
PathName = Left(PathName, Len(PathName) - 7)
For i = 0 To swDraw.GetSheetCount - 1
' Generate print filename based on sheet number
' For example, if drawing document is gears.slddrw and contains
' one sheet, then the print filename is gears0.prn
PrintFileName = PathName & Trim(Str(i)) & ".prn"
' Print out one sheet at a time
nPrintSheets(0) = i + 1
vPrintSheets = nPrintSheets
swDocExt.PrintOut2 (vPrintSheets), 1, False, SWPrinter, PrintFileName
Next i
End Sub
RE: Print Macro
There is a print drawing macro listed
Heckler
Sr. Mechanical Engineer
SWx 2007 SP 3.0 & Pro/E 2001
XP Pro SP2.0 P4 3.6 GHz, 1GB RAM
NVIDIA Quadro FX 1400
o
_`\(,_
(_)/ (_)
(In reference to David Beckham) "He can't kick with his left foot, he can't tackle, he can't head the ball and he doesn't score many goals. Apart from that, he's all right." -- George Best