Add number of copies to a print

[bullit_nl]

Hello,

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



Thanks.

 

[bullit_nl]

-

-

 

[bullit_nl]

Hi Glenn,

This is not exactly what i want.

On the place where i now can put manualy "what ever i like" i want to fill that automaticly with PrintOut Copies:=2 or PrintOut Copies:=3 etc.

So that i can see on my printout how many times it's copied. Is that possible?

Thanks

 

[bullit_nl]

Hi Glenn,

This is not exactly what i want.

On the place where i now can put manualy "what ever i like" i want to fill that automaticly with PrintOut Copies:=2 or PrintOut Copies:=3 etc.

So that i can see on my printout how many times it's copied. Is that possible?

Thanks

 

[bullit_nl]

I found some code on this site: http://www.rondebruin.nl/print.htm


Sub PrintCopies_ActiveSheet_1()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many copies do you want", Type:=1)

For CopieNumber = 1 To CopiesCount
With ActiveSheet
' This example print the number in cell A1
.Range("A1").Value = CopieNumber & " of " & CopiesCount

'If you want the number in the footer use this line
'.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount

'Print the sheet
.PrintOut
End With
Next CopieNumber
End Sub

Only i want Excel to pickup my copiecount from the input box from the printwindow. Is that possible?

 

[GlennUK]

Only i want Excel to pickup my copiecount from the input box from the printwindow. Is that possible?

No. I've given you an example of what to do, and you even coded your own solution, but without putting the header that you wanted in. Here is your same code with the header that you requested in it:

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

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

You could specify the number of copies from a cell entry somewhere or by using InputBox as Ron DeBruin suggests.