I have recorded a macro simply printing the active document. The problem I'm having is that if the drawing has (for example, 4 sheets) it will print each sheet 4 times. This only seems to happen when using #TASK. Is it because #TASK runs the macro on each sheet? Or is something wrong with the way I am doing it? Any info would be greatly appreciated. Thanks in advance.

_____________________________________________

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

Part.PrintDirect

End Sub