Print Macro spooling multiple quantities

[newsam]

I am printing from an Excel macro to a Zebra Z4M label printer and I'm having a tough time getting excel to spool the print jobs as more than qty 1. For instance, if I wanted 50 labels, it wants to spool 50 jobs as qty 1 label. This takes the printer much longer because it pauses between each job and makes a job that should take 10 seconds take about a minute. Any ideas?

 

[VoG]

The code would help but have you tried

Copies:=50

 

[newsam]

OK here is the code I've got. I'm pulling the copies quantity from a cell in the Excel file.

Sub print_pid()
'
' print_pid Macro
'
'
    DefaultPrinter = Application.ActivePrinter
    Sheets("Sheet2").Select
    Application.ActivePrinter = _
        "[URL="file://d8w5mhf1-0208/Zebra"]\\D8W5MHF1-0208\Zebra[/URL]  S4M ZPL (200dpi) - Amy on Ne06:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Print PID").Range("D1").Value
    Sheets("Print PID").Select
    Application.ActivePrinter = DefaultPrinter
End Sub

 

[Cindy Ellis]

I've printed to a Zebra printer before, although not from Excel, and I recall that we had some similar problems. (Please note that the following is from memory, and may not apply to the specific Zebra printer you're using.)
If I recall correctly, to prevent each label from being sent as an individual print job, you have to include the number of copies with a command language code that gets sent to the printer.
Inour system, the final string that gets sent to the printer includes the quantity. There are lots of commands inside brackets, which get mangled a bit by the forum editor, but I've tried to manage it below by adding spaces around all of the brackets. Delete all the spaces, and you will have the code string that sends quantity 3 to our Zebra printer:

<STX><SI>< STX > < RS > 3 < ETB > < ETX >
<ETB><ETX>

Hope you can use that to solve your problem,
Cindy

 

[newsam]

Thanks for all the advice, but I figured out that it was something as minor as unchecking the "Collate" box on the print screen. I just modified the macro and it works perfect now.

ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Print PID").Range("D1").Value, Collate:=False

 

[Cindy Ellis]

Good to hear you found a solution.