Printing issue

[johnsonk]

Hi, I am using the code below to print labels but when I enter the number of prints in the inputbox I always get 1 extra label I have checked the printer setting and they look fine.

Private Sub CommandButton1_Click()
Dim myValue As Variant
Sheets("Info").Select
Range("K2").Value = TextBox1.Text
Worksheets("Info").PageSetup.Orientation = xlLandscape
Worksheets("Info").PageSetup.PrintArea = "$K$2:$K$3"
myValue = InputBox("ENTER NUMBER OF LABELS TO PRINT")
Worksheets("Info").PrintOut ActivePrinter:="DYMO LabelWriter 450"
ActiveSheet.PrintOut copies:=myValue
TextBox1.Text = ""
End Sub

 

[Anthony47]

That's because you send twice the "PrintOut" command; remove

Worksheets("Info").PrintOut ActivePrinter:="DYMO LabelWriter 450"
ActiveSheet.PrintOut copies:=myValue

And replace by

Worksheets("Info").PrintOut ActivePrinter:="DYMO LabelWriter 450", copies:=myValue

Bye

 

[johnsonk]

Thank you Anthony I should have noticed that really.

 

[Anthony47]

Four eyes sometime are better than two...