batch printing from list
batch printing from list
(OP)
I downloaded this neat batch printing example from the SW API help website. I gave it a list of 30 drawings and it printed them out in less than 2 mins! It didn't need to open solidworks every time to print.
It also did "scale to fit" for every drawing so every drawing printed out perfect.
I tried to run the program again and it won't work. I deleted it and reinstalled it and it doesn't work UGHGHG. I have 60 more to do. So I tried the task scheduler. That takes 10x as long as I can't just give that a "list" (they are all in different folders) and it has to open solidworks every time and it doesn't do scale to fit so the print is useless.
We have no PDM. What do you guys use for your batch printing? The macro that was great and fast was here
htt p://files. solidworks .com/API/D ownloads/0 0000/0200s /0222/Batc hPrint.zip
It also did "scale to fit" for every drawing so every drawing printed out perfect.
I tried to run the program again and it won't work. I deleted it and reinstalled it and it doesn't work UGHGHG. I have 60 more to do. So I tried the task scheduler. That takes 10x as long as I can't just give that a "list" (they are all in different folders) and it has to open solidworks every time and it doesn't do scale to fit so the print is useless.
We have no PDM. What do you guys use for your batch printing? The macro that was great and fast was here
htt






RE: batch printing from list
http://www.swcp3.com/dnld.asp?sw=swBatchPrint
http://www
http://b
RE: batch printing from list
-swcp3 - doesn't work. I open the DLL and there is no ad in enabled. Apparently this only works on old SW versions and not 2007
- ecocom - free trial doesn't cut it
- batchexpress - crashes out and locks up my computer
RE: batch printing from list
RE: batch printing from list
I just had to go in and print them one by one. Just finished. Its almost 4 pm. What a joke.
I wish that first batch program I posted would work again! Maybe its because I have an X64 computer.
Anyways. If someone comes up with a fix for it, wow what a tool it could be.
RE: batch printing from list
RE: batch printing from list
Your list of files should be located on Sheet1 and it should be the full path.
If you get errors after you paste it make sure to correct rows from the way the text was wrapped.
Sub Print_Drawing()
Dim swApp As SldWorks.SldWorks
Dim DwgDoc As SldWorks.ModelDoc2
Dim strDrawing As String
Dim lErrors As Long
Dim lWarnings As Long
' This section sorts and counts the rows for the number of item to search for
Range("A1:C200").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dim totalrows As String
totalrows = Range("A65536").End(xlUp).Row
Worksheets("Sheet1").Cells(2, 4) = totalrows
For COUNTER = 1 To Range("D2").Value
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = False 'if you want to see the action change to true
strDrawing = Worksheets("Sheet1").Cells(COUNTER, 1).Value
Set DwgDoc = swApp.OpenDoc6(strDrawing, swDocDRAWING, swOpenDocOptions_ViewOnly, "", lErrors, lWarnings)
DwgDoc.Extension.PrintOut2 vPageArray, copies, collate, "", ""
newHour = Hour(Now()) 'speed up or slow down here
newMinute = Minute(Now()) '
newSecond = Second(Now()) + 1 '
waitTime = TimeSerial(newHour, newMinute, newSecond) '
Application.Wait waitTime
swApp.QuitDoc strDrawing
Next COUNTER
End Sub
RE: batch printing from list