Printing invoices in original, duplicate, triplicate in excel

[ABU_HASAN]

Dear All

I use the following VBA code to print Invoices using a confirmation box on excel
Sub Print1()
Dim Answer As VbMsgBoxResult
Answer = MsgBox("CONFIRM", vbYesNo, "Run Macro")
If Answer = vbYes Then
ActiveSheet.PrintOut Copies:=2, Collate:=True
End If
End Sub

I want to print 3 copies i.e. "(ORIGINAL FOR RECIPIENT)" , "(DUPLICATE FOR TRANSPORTER)" and "(TRIPLICATE FOR SUPPLIER)" showing on the right hand corner of Invoices
Please note I dont need to print DUPLICATE all the time so I want a choice in the confirmation box to confirm to print Duplicate othewise print Original and Triplicate

Kindly Help

Regards
ABU

 

[SpillerBD]

hmmm. A loop where the Header and/or Footer are changed for the printing. It could also be like a watermark, but I think solid text would be better if your customer scans any of the documents.

Maybe something like:

Sub Macro26()'
' Macro26 Macro
'
Dim FirstPrint As String, SecPrint As String, ThirdPrint As String


FirstPrint = "(ORIGINAL FOR RECIPIENT)"
SecPrint = "(DUPLICATE FOR TRANSPORTER)"
ThirdPrint = "(TRIPLICATE FOR SUPPLIER)"
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterHeader = FirstPrint
        .CenterFooter = FirstPrint
    End With
    
    Application.PrintCommunication = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Application.PrintCommunication = False
    
    With ActiveSheet.PageSetup
        .CenterHeader = SecPrint
        .CenterFooter = SecPrint
    End With
    Application.PrintCommunication = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Application.PrintCommunication = False


    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ThirdPrint
        .CenterFooter = ThirdPrint
    End With
    Application.PrintCommunication = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    End Sub

Uses the QuickPrint method, so your pages must be set and your printer defined.