Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Duplicar Impresão
 
Notifications
Clear all

Duplicar Impresão

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,070 Visualizações
RSS
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Pessoal,

Boa tarde!

Tinha uns 2 dias que eu não criava um tópico aqui. Seguinte, nem sei se o título do tópico é o mais adequado, mas enfim, não consegui pensar em outro nome.
Bom, o código abaixo imprime um recibo conforme área de impressão definida.

Sub Imprimir()
   Range("a1:m28").Select
   Range("a1").Activate
   ActiveSheet.PageSetup.PrintArea = "$a$1:$m$28"
   Application.Dialogs(xlDialogPrint).Show
End Sub

Quero que: Ao mandar imprimir o recibo, ele gere uma cópia na mesma página, já que, cabem 2 impressões em uma folha A4.

 
Postado : 27/09/2012 1:34 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu não entendi, sua dúvida!!!

Você quer copiar o intervalo "a1:m28" para outra área da lanilha?

Ou imprimir novamente (2x)?

Att

 
Postado : 27/09/2012 3:52 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

copiar a área de impressão a1:m28, para a mesma planilha. Assim terei 2 cópias do recibo

 
Postado : 27/09/2012 4:46 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente...

Sub Imprimir()
   Range("a1:m28").Select
   'Range("a1").Activate
   ActiveSheet.PageSetup.PrintArea = "$a$1:$m$28"
   Application.Dialogs(xlDialogPrint).Show
   Range("A1:M28").Copy Destination:=Range("A30:M57")
End Sub
 
Postado : 27/09/2012 5:41 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico