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