Logo Hardware.com.br
J_ANGELO_JR
J_ANGELO_JR Membro Senior Registrado
108 Mensagens 34 Curtidas

[Resolvido] Macro para imprimir 'frente e verso' Excel.

#1 Por J_ANGELO_JR 13/03/2015 - 02:06
Oi gente. Preciso imprimir duas páginas (formulários) em uma única folha (frente e verso). Abaixo tem um código para um botão (macro) que fiz e está na planilha mas está imprimindo em folhas separadas.
[code=VB]
Sub ImprimirLimpezaeBkp_Clique()
Range("A1:V38").Select 'Impressão Página 1
Selection.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=-54
Range("A40:V79").Select 'Impressão Página 2
Selection.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=-54

Range("x01").Select 'Após imprimir, o cursor seleciona a célula 'x01'.
End Sub
[/code]
Abraço.
paginas frente imprimir formularios macro folha select verso
Responder
Shura16
Shura16 Ubbergeek Registrado
2.5K Mensagens 601 Curtidas
#2 Por Shura16
13/03/2015 - 08:46
Quantas folhas tem o formulário? Você manda imprimir as páginas ímpares (por exemplo pág 1 e 3), vira as folhas e manda imprimir as páginas pares (por exemplo pág. 2 e 4).

No seu caso aí, você só deixa uma folha na impressora, manda imprimir, vira a folha e manda a impressora continuar a impressão (ela vai dar um aviso de que o papel acabou).
Coragem não é ausência de medo e sim o controle dele.

Linux em casa!
Windows 10, na empresa!
Agora: Android no bolso!
Shura16
Shura16 Ubbergeek Registrado
2.5K Mensagens 601 Curtidas
#4 Por Shura16
13/03/2015 - 10:10
Isso é muito bom, não conhecia impressoras assim!

Não sou bom com VBA, mas deve haver uma opção para marcar isso na configuração da impressora via VBA.
Se fosse comigo, eu tentaria gravar um macro pelo gravador de macro e depois verificaria o código gerado. De posse desse código gerado tentaria identificar qual o código que marca a opção de imprimir em Frente e Verso da impressora.
Coragem não é ausência de medo e sim o controle dele.

Linux em casa!
Windows 10, na empresa!
Agora: Android no bolso!
Mauriciodez
Mauriciodez Highlander Registrado
4.9K Mensagens 1.6K Curtidas
#5 Por Mauriciodez
13/03/2015 - 10:22
J_ANGELO_JR disse:
Shura16. São dois formulários que saem um em cada folha. A impressora tem a opção de imprimir frente e verso sem ter que virar o papel na bandeja.

Valeu.


que impressora é essa q imprime frente e verso sem virar o papel manualmente ??? tb não conhecia !!!


" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
Otneba62
Otneba62 Cyber Highlander Registrado
16.6K Mensagens 2K Curtidas
#7 Por Otneba62
13/03/2015 - 11:50
Há muitos impressoras a imprimir frente e verso sem ser preciso recolocar as folhas manualmente.

Agora, como se trata duma definição da impressora e não do Excel, não sei se é possível dar essa instrução através duma macro.


[]s
Guia de utilização: Novo Fórum.                   

Não respondemos a dúvidas técnicas através de mensagens
Mauriciodez
Mauriciodez Highlander Registrado
4.9K Mensagens 1.6K Curtidas
#8 Por Mauriciodez
13/03/2015 - 11:54
P@tropi disse:
Mauricio

A minha é uma HP Deskjet Ink Advantage 5525 e faz isso.

[]s


Otneba62 disse:
Há muitos impressoras a imprimir frente e verso sem ser preciso recolocar as folhas manualmente.

Agora, como se trata duma definição da impressora e não do Excel, não sei se é possível dar essa instrução através duma macro.


[]s


Bom saber .. não conhecia .. só rola essa função em impressoras ou tem multifuncional tb ???


" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
J_ANGELO_JR
J_ANGELO_JR Membro Senior Registrado
108 Mensagens 34 Curtidas
#12 Por J_ANGELO_JR
14/03/2015 - 01:49
Consegui. smile.pngsmile.pngsmile.pngsmile.pngsmile.png
Obrigado a todos.
Principalmente ao Shura16. A dica "Se fosse comigo, eu tentaria gravar um macro pelo gravador de macro e depois verificaria o código gerado. De posse desse código gerado tentaria identificar qual o código que marca a opção de imprimir em Frente e Verso da impressora." foi excelente. Fiz isso e retirei os códigos extras.
Abaixo o código para impressão de dois formulários.
[code=vb]
Sub ImprimirLimpezaeBkp_Clique()
'1 folha com dois formulários (frente e verso).

Range("A1:V38").Select 'Seleciona o primeiro formulário.
Range("A40:V79").Select 'Seleciona o segundo formulário.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Range("x01").Select
End Sub
[/code]
A impressora que utilizamos é Lexmark T656dne. Não tem scanner, só impressão. Ver o modelo no Google imagem.
Abraços.
Responder Tópico
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal