Print (multi page) UserForm

[adambc]

I don’t like it, but User pressure has prevailed!!!

Having built a 3 page* UserForm to emulate a 3 section paper form (with all the controls etc to ensure data completeness/accuracy/etc!), as a result of User pressure, I need to print a 3 page version of my UserForm (including data values) ...

* there is no scrolling on any of the pages themselves, but there is scrolling in a few of the Text Boxes

I can find solutions to printing a single page UserForm, but does anyone have any ideas how to print multiple pages as a single “document”?

Thanks ...

 

[DanteAmor]

Check if the following is what you need.
What the macro does is select page1 of the multipage, copy the screen and paste it on an excel sheet, advance to page2, copy and paste, advance page3 copy and paste, at the end print the sheet.

Private Sub CommandButton1_Click()
  Dim i As Long, n As Long
  Dim sh As Worksheet
  
  Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
  n = 1
  For i = 0 To 2
    MultiPage1.Value = i
    Application.Wait Now + TimeValue("00:00:03")
    DoEvents
    Application.SendKeys "(%{1068})"
    DoEvents
    sh.Paste
    Selection.Top = n
    n = n + Me.Height + 5
  Next
  With sh.PageSetup
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlPortrait
    .Draft = False
    .PaperSize = xlPaperLetter
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
  sh.PrintOut Copies:=1, Collate:=True
  Application.DisplayAlerts = False
  sh.Delete
End Sub

 

[adambc]

This looks great, but I only work one day a week so it will be next week before I can try it ...

Can follow how it works, but not sure what ... Application.Wait Now + TimeValue("00:00:03") ... does?

Also what the 2 DoEvents do?

Many thanks ...

 

[DanteAmor]

Application.Wait Now + TimeValue("00:00:03")

The macro pauses for excel to change page, copy and paste.

Also what the 2 DoEvents do?

With DoEvents Excel repaint the UserForm in each cycle.