Este fórum está sendo desativado

[ElianaGomes]

Bom dia! Tenho uma macro de impressão , mas gostaria de saber como faço para controlar a quantidade de impressão de um mesmo arquivo. E se na folha impressa gostaria que saísse a seguinte mensagem Exemplo: Impressão001-17/08/2020 16:30 Impressão002-18/08/2020 12:00



Sub Imprimir_seleccion()

Dim strCopias As String
Range("A1:L30").Select
Range("L30").Activate
'preparar a folha para impressão
With ActiveSheet.PageSetup
.PrintArea = ""
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = True 'incluir cor na folha(False o True)
.FitToPagesWide = 1 'reduzir o tamanho da folha(largura)
.FitToPagesTall = 1 'reduzir o tamanho da folha(altura)
.CenterHorizontally = True 'centralizar horizontalmente
.CenterVertically = False 'centrar verticalmente

End With

'aqui vc deve receber o numero de cópias

strCopias = InputBox("Informe o número de cópias:", "Impressão de documento", 1)

If IsNumeric(strCopias) = True Then


'Aqui faz um Loop até a qtd de cópias desejadas

For i = 1 To strCopias

If i = 1 Then
Range("K19").Value = "Original"
ElseIf i = 2 Then
Range("K19").Value = "Duplicado" & i - 1
ElseIf i = 3 Then
Range("K19").Value = "Triplicado" & i - 1
ElseIf i = 4 Then
Range("K19").Value = "Quadruplicado" & i - 1
Else
Range("K19").Value = "Cópia n. " & i
End If

'imprime a cópia jah com a descrição na célula
ActiveWindow.Selection.PrintOut copies:=1, collate:=True

Next i

End If
End Sub