print labels from userform

  • Thread starter Thread starter jeff
  • Start date Start date
J

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.
 
...., Copies:=me.textbox4.value, ...

But I'd do some validation to make sure that it was numeric (and made sense)
first.
 
Assuming the ActivePrinter code is running from the UserForm's code window,
try replacing this...

Copies:=1

with this....

Copies:=Me.textbox4.Text
 
..., 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 -
Click to expand...

Thanks very much. Yeah, I'll make sure on the numeric values, etc.
This is great! Thanks again.
j.o.
 
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.
 
Back
Top