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.

jeff wrote:

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

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

Copies:=1

with this....

Copies:=Me.textbox4.Text

--
Rick (MVP - Excel)


"jeff" wrote in message
...
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.

On Mar 2, 2:13*pm, Dave Peterson wrote:
..., Copies:=me.textbox4.value, ...

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





jeff wrote:

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- 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.

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.
--
Cheers,
Ryan


"jeff" wrote:

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.
.