Hand written psuedo code :-
Code:
Private WhatPagesToPrint as string = ""
Private Sub PrintDoc1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDoc1.BeginPrint
WhatPagesToPrint = "Page 1"
End Sub
Private Sub PrintDoc2_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDoc2.BeginPrint
WhatPagesToPrint = "All other pages"
End Sub
Private Sub Combined_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc1.PrintPage, PrintDoc2.PrintPage
With e.Graphics
Select Case WhatPagesToPrint
Case "Page 1"
'only do page 1
Case "All other pages"
'do NOT do page 1, but do all other pages
End Select
End With
End Sub
Bookmarks