command/code to print several copies of a userform

[alcorjr]

Happy New Year to All!!!

I'm almost sure I have read a previous topic on this subject, but can't find it right now. Could somebody point me in the right direction??

Thanks a bunch.

 

[parry]

Hi, you can print a userform by using the printform property. If the code is inside the userform you want to print then you can use the Me keyword, otherwise use the userformname as the prefix.

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

Note, that some controls dont tend to acurately reflect what you see on the screen when printed. For example you may have a textbox with long text and some of the text may be missing.

Its probably more accurate to do a screen dump into Word and print it. Why do you want to print the userform?

 

[alcorjr]

Hi Perry, thanks for your quick reply. In some instances, I dump the info onto an excel worksheet range and print from there. In this occassion, however, I prefer the format obtained from printing the userform itself and that's why I do so.
I have no problems printing from the userform; I use a "print" button on the form itself, with the userform.Printform command.
When I've printed a worksheet range from a userform-placed control, I always like to place a textbox next to the "print" button ,where the number of copies wanted can be input. This textbox loads an integer-type variable which is later used in the Print command, to determine how many copies of the range I need.

The question, is there a code that will allow me to print more than one copy of the userform?


Thanks a lot :wink:

 

[Greg Truby]

Hi Alcor. Aren't you making life harder than it needs to be? Couldn't you just loop it and be done?

For p = 1 to x : me.printform : next p

 

[alcorjr]

PERFECT!!! Thanks, man