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
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Olá, Eliana!!
Como vai?
Existe uma seção (ou recurso) aqui no site do PROFES designado por Tarefas. Acredito que seja mais interessante para você acessar esta seção e procurar algum professor(a) para ajudá-la da melhor maneira.
Saudações
Bons estudos!!
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.