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.
- Home
- >
- Fórum
- >
- Windows, Softwa...
- >
- Suítes de escri...
- >
- Macro para imprimir 'fren...
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).
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.
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.
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 !!!
Mauricio
A minha é uma HP Deskjet Ink Advantage 5525 e faz isso.
[]s
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
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 ???
Mauriciodez disse: Bom saber .. não conhecia .. só rola essa função em impressoras ou tem multifuncional tb ???
Aqui é uma multifuncional que tanto faz scan como imprime em frente e verso
Achei na net aqui .. resolvido com access vba ... não sei c aplica a excel, mas já é uma luz
http://maximoaccess.maisforum.com/t17902-resolvidoimprimir-relatorio-frente-e-verso
Mauricio
A minha impressora é multifuncional.
[]s
Consegui.
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.