Imprimir copias sequenciais


#1

Boa noite, 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


#2

[quote=“Marymeida, post:1, topic:937, full:true”]
Boa noite, 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.

image.png1031x179 6.52 KB

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
[/quote]

Olá, @Marymeida. Tudo bem?

Você precisaria pegar esse número de cópias de algum lugar. Nesse caso, vou considerar na célula `A1` apenas como exemplo. Acredito que deve funcionar:

    Sub Imprimir()

    Range(“B2:AQ48”).Select
    Range(“I4”).Activate
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AQ$48"

    For i = 1 to Range("A1").Value
    ActiveWindow.SelectedSheets.PrintOut copies:=1
    Range(“I4”).Value = Range(“I4”) + 1
    Next i

    end sub

#3

Obrigada Leonardo pelo retorno, n sei se fiz algo errado mas a principio n funcionou…Coloquei a coluna AR1 recebendo a quantidade de copias, coloquei 2 imprimiu apenas 1 e msm assim a coluna I4 n alterou…

image


#4

Acho que faltou apenas um detalhe, @Marymeida:

Range("I4").Value = Range("I4").Value + 1