MACRO PARA IMPRIMIR NUMERO DE COPIAS SEQUENCIAS

2024 - VBA & Macros

Post Recente por MPrudencio 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,523 Visualizações

RSS

marymeida

(@marymeida)

Posts: 1

New Member

Topic starter

Boa tarde, gostaria de saber se tem como criar uma macro para imprimir certa quantidade de copias e alem disso q elas fossem sequenciais…tipo imprimir 5 copias e q fosse impresso com o numero 600, 601,602,603, 604…ja tenho uma q imprimi a sequencia, mas se a pessoa pede 20 copias tenho q clicar no botao imprimir 20 vzs.

Sub Imprimir()

Range(“B2:AQ48”).Select
Range(“I4”).Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$AQ$48"
Application.Dialogs(xlDialogPrint).Show
Range(“I4”).Value = Range(“I4”) + 1
end sub

Postado : 05/12/2017 9:23 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Tente este


Sub Imprime()

Dim CodInicial As Long
Dim CodFinal As Long
Dim W As Worksheet

Set W = Sheets("Plan1") ' Troque o nome da Planilha de acordo com a necessidade
CodInicial = InputBox("Digite o Codigo Inicial", "Codigo Inicial")
CodFinal = InputBox("Digite o Codigo Final", "Codigo Final")

For A = CodInicial To CodFinal

' Essa parte que esta destacada não é necessaria no codigo pode apagar se desejar.
'----------------------------------------------------------------
W.Range("A1:AM20").Select
W.Range("AR2").Activate
'----------------------------------------------------------------
W.PageSetup.PrintArea = "$A$1:$AM$20"
W.Range("AR2").Value = A
'Se quiser escolher a impressora use a linha abaixo basta remover o comentario.
'Application.Dialogs(xlDialogPrint).Show
'Esse linha imprime direto na impressora padrao veja qual atende melhor
W.PrintOut 'Aqui imprime direto na impressora padrao.

Next

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 05/12/2017 7:07 pm