Selection.printout does not work

[Fredric Andersson]

Hi all,

kinda new to VBA, but im currently working on a userform. (Enligsh not my native language)
I have a userform that allows me to print out a userform, but i want to get multipel pages.

This is the current code i have, the printer is my defualt.
But i cant get it to work when i change the value from 1 to 3, i only get one pages printed. but i want 3.

private sub Commandbutton1_click()
If TextBox1.Value <> 5 Then
Selection.PrintOut copies:=TextBox1.Value, collate:=True
UserForm5.PrintForm
End If

 

[rollis13]

You didn't state which is your default printer; example, if it's PdfCeator your macro will not work.
Copies:=TextBox1.Value will work with a real printer.