7/24/2019 Imprimir Sequencia
1/1
Sub QdeCopias_e_Salvar()
Dim QdeCopias As Long
On Error Resume Next
Application.DisplayAlerts = False
'Pergunta a qde de cpias QdeCopias = Application.InputBox _ (Prompt:="Digite o Numero de Cpias.", _ Title:="Quantidade de Cpias", Type:=1) 'Tipo 1 - aceita digitao somente de numeros
'Se Cancelar sai da Rotina On Error GoTo 0
Application.DisplayAlerts = True
'Se a qde for nulaou Zero sai da Rotina If QdeCopias = 0 Then
Exit Sub
Else 'Se no Cancelou e qde diferente de 0'Imprime
ActiveWindow.SelectedSheets.PrintOut Copies:=QdeCopias, Collate:=True, _ IgnorePrintAreas:=False
'Atualiza os Ranges Range("A1").Value = Range("A1").Value + 2 Range("F1").Value = Range("F1").Value + 2
'Salva o Arquivo ActiveWorkbook.Save
End IfEnd Sub