Print page contents of Multipage

  • Thread starter Thread starter Bhuktar S
  • Start date Start date
B

Bhuktar S

I have Multipage on userform.
Each page is with different informations selected by controls on thos
pages.
I need only to print the pages indivully (say clicking a button on tha
page) and also to printa all pages (say clicking a button on th
form).
If this is possible, then how
 
I think I'd just put two buttons on the outside of the multipage control.

One for print current page and one for print all pages. If you like this idea,
how about something like this to get you started.


Option Explicit
Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton2_Click()
Dim iCtr As Long
Dim CurPage As Long

CurPage = Me.MultiPage1.Value
For iCtr = 0 To Me.MultiPage1.Pages.Count - 1
Me.MultiPage1.Value = iCtr
UserForm1.PrintForm
Next iCtr
Me.MultiPage1.Value = CurPage
End Sub
 
Back
Top