Boa tarde,
desenvolvi um etiqueta e agora preciso arrumar a macro que eu fiz, para imprimir a quantidade de cópias de acordo com a célula D2.
MACRO BOTÃO 1CLIQUE
Dim x As Variant
Sub Botão1_Clique()
x = Val(Range("i2"))
While Val(x) <= Val(Range("i3"))
Range("i2").Select
ActiveCell.FormulaR1C1 = x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
x = x + 1
Wend
End Sub
___________________________________________________________________________________________________________________________________________________
MACRO 1
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub Macro2()
Range("D4").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("D4").Select
ActiveCell.FormulaR1C1 = "2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("D4").Select
ActiveCell.FormulaR1C1 = "3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub