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,083 Visualizações
RSS
Charlie-81
 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.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 27/09/2012 1:34 pm
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/09/2012 3:52 pm
Charlie-81
 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

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 27/09/2012 4:46 pm
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/09/2012 5:41 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico