Add number of copies to a print

[bullit_nl]

Hello,

Is it possible to add the number op copies to a print?



Thanks.

 

[GlennUK]

Yeah, sure, you type it in when the print dialog appears.

 

[RichardMGreen]

If you're using VBA, it's copies:=X at the end of the print command.

 

[bullit_nl]

Hi,

On the paper/label i print i want to see the number i typed in the print dialog.

So if i print the paper/label 4x i want to see this on my printout.

Is that possible?

On this workbook i don't use VBA. But if that's the only way then i want to do it that way.

 

[bullit_nl]

Hello,

I know i can add pagenumbers with header or footer. But from this page i have only one witch i have to print several times.


Regards

 

[GlennUK]

Do the printing via VBA, and set the number of copied in there, and set the header or footer to contain that number. How are you intending to specify the number of copies? Is there a cell in your workbook somewhere, where you'll type the number of copies to print? Or will you want your macro to prompt for number of copies? Using the macro recorder is a good starting point for automating processes, by the way.

 

[bullit_nl]

I did record a macro and assigned that to a button. So if i click that button it wil print the page/label that many times.

How can i set the header or footer to contain that number?

Sub printx2()
'
' printx2 Macro
' Macro recorded 28-02-2011 by '

'
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub

 

[GlennUK]

put this before the print:

    For Each ws In ActiveWindow.SelectedSheets
        ws.PageSetup.CenterHeader = "my header"
    Next

and change "my header" to whatever you want.

 

[bullit_nl]

put this before the print:

    For Each ws In ActiveWindow.SelectedSheets
        ws.PageSetup.CenterHeader = "my header"
    Next

and change "my header" to whatever you want.

So should it look like this?

Sub printx2()
'
' printx2 Macro
' Macro recorded 28-02-2011 by
'

'
   For Each ws In ActiveWindow.SelectedSheets
    ws.PageSetup.CenterHeader = "my header"
    Next
    Application.ActivePrinter = "Zebra Stripe 600 on LPT1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
        "Zebra Stripe 600 on LPT1:", Collate:=True
End Sub

 

[GlennUK]

Yes, but change "my header" to whatever you want.