print labels from userform

[jeff]

I'll try this again.

From Userform1, the user enters info in textboxes 1, textbox2 and
textbox3, then he enters a number in textbox4. The user will then
click the PRINT button on the userform.

the info from textboxes 1-3 are entered on Sheet1.

Here's the code to print this info onto a label, using the recorder.

Application.ActivePrinter = "\\ABTAPA1491\P01VAL149107 on Ne06:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\ABTAPA1491\P01VAL149107 on Ne06:", Collate:=True

The only thing I need is to know is how to apply the value from
textbox4 to the middle line above where it says PrintOut Copies:=1

I want the value of textbox4 to replace the value of 1.
This value will change each time a user runs this.

I know this will probably involve putting the value of textbox4 into
memory, but I don't know the proper syntax for this.

If you know VBA, and understand what I'm asking for, please respond. I
would appreciate it.

Thanks
j.o.

 

[Dave Peterson]

...., Copies:=me.textbox4.value, ...

But I'd do some validation to make sure that it was numeric (and made sense)
first.

 

[Rick Rothstein]

Assuming the ActivePrinter code is running from the UserForm's code window,
try replacing this...

Copies:=1

with this....

Copies:=Me.textbox4.Text

 

[jeff]

..., Copies:=me.textbox4.value, ...

But I'd do some validation to make sure that it was numeric (and made sense)
first.















--

Dave Peterson- Hide quoted text -

- Show quoted text -

Thanks very much. Yeah, I'll make sure on the numeric values, etc.
This is great! Thanks again.
j.o.

 

[Ryan H]

Try this.

Application.ActivePrinter = "\\ABTAPA1491\P01VAL149107 on Ne06:"
ActiveWindow.SelectedSheets.PrintOut Copies:=Val(Me.Textbox4.Value),
ActivePrinter:= "\\ABTAPA1491\P01VAL149107 on Ne06:", Collate:=True

Hope this helps! If so, let me know, click "YES" below.