Reply to thread

Message: [QUOTE="jeff, post: 6439015"] This is not the whole sub, but here's what I'm trying to do. I just need the part that inputs how many copies to print. 'Pastes TextBox1 to Building Application.Goto Reference:="Building" Application.Selection.Value = UCase(TextBox1.Text) Cancel = False ActiveCell.Offset(2, 0).Range("A1").Select 'Pastes TextBox2 to Customer Application.Goto Reference:="Customer" Application.Selection.Value = UCase(TextBox2.Text) Cancel = False ActiveCell.Offset(2, 0).Range("A1").Select 'Pastes TextBox3 to Order number Application.Goto Reference:="OrderNumber" Application.Selection.Value = UCase(TextBox3.Text) Cancel = False ActiveCell.Offset(2, 0).Range("A1").Select '********here's where I need help. I'm telling it what printer to print to. All I need is to know how to tell it ********* 'how many labels I want. I tried to put in what I thought might work, but it didn't. 'Need to take value of TextBox 4 to get qty of labels to print Application.ActivePrinter = "\\abtapa1491\P01VAL149107 on Ne04:" ActiveWindow.SelectedSheets.PrintOut Copies:=Val(TextBox4.Value), ActivePrinter:= _ "\\abtapa1491\P01VAL149107 on Ne04:", Collate:=True Unload UserForm1 [/QUOTE]