Need VBA code to print specific pages or all pages in a MultiPage UserForm

[pimp_mentality]

Good day all,

As the topic suggested I would like a line of code which will allow me to print a specific page from a multipage UserForm or print the entire form (all pages) when click commandbutton I created

Assistance in this regard would be greatly appreciated.

I would also like a line of code which will clear all textboxes when I click the commandbutton I created.

Thanks

 

[pimp_mentality]

 

[pimp_mentality]

I am currently unable to post a sample worksheet as I know that would help however if you advise me re what additional info you require to assist me with this issue I will provide it.

 

[Norie]

There is only one print method for a userform, PrintForm.

Me.PrintForm

It will print the userform, normally badly, in it's current state ie only the currently active page of the multipage will be printed.

 

[pimp_mentality]

Yes. I was told of this code i.e. .PrintForm but it would only print the first page. i was hoping that their was a way to print all pages of just specific pages but i guess not.

 

[pbornemeier]

Finally could see this in a non-Printable view

Try:

Option Explicit

Private Sub cmdPrintAllMultiFormPages_Click()
    'Modify to match your form & controls' names
    'Add a command button to the form named 'PrintAllFormPages'
    Dim lPageIndex As Long
    For lPageIndex = 0 To Me.MultiPage1.Pages.Count - 1
        Me.MultiPage1.Value = lPageIndex
        Me.PrintForm
    Next
End Sub

Private Sub cmdClearTextBoxes_Click()
    'Assumes your textbox controls all start with 'txt'
    'Modify to match your form & controls' names
    'Add a command button to the form named 'PrintAllFormPages'
    Dim ct As Control
    For Each ct In UserForm1.Controls
        If Left(ct.Name, 3) = "txt" Then
            ct.Object = ""
        End If
    Next
End Sub

 

[pbornemeier]

Correction:

Option Explicit

Private Sub cmdPrintAllMultiFormPages_Click()
    'Modify to match your form & controls' names
    'Add a command button to the form named 'PrintAllFormPages'
    Dim lPageIndex As Long
    For lPageIndex = 0 To Me.MultiPage1.Pages.Count - 1
        Me.MultiPage1.Value = lPageIndex
        Me.PrintForm
    Next
End Sub

Private Sub cmdClearTextBoxes_Click()
    'Assumes your textbox controls all start with 'txt'
    'Modify to match your form & controls' names
    'Add a command button to the form named 'cmdClearTextBoxes'
    Dim ct As Control
    For Each ct In UserForm1.Controls
        If Left(ct.Name, 3) = "txt" Then
            ct.Object = ""
        End If
    Next
End Sub

 

[pimp_mentality]

Thanks pbornemeier.

Is there any way to print a specific page in the userform or print the current page in the userform?

 

[pbornemeier]

A button that sent this:
Me.PrintForm
would print the current visible page.

The line:
Me.MultiPage1.Value = lPageIndex
determines which page is visible. 0 for the first page, 1 for the second page, .....

 

[pimp_mentality]

So do i include one or the other in the macro or include both? or is it just going to always print the visible page?