Macro para imprimir 'frente e verso' Excel.

Question

Oi gente. Preciso imprimir duas p&aacute;ginas (formul&aacute;rios) em uma &uacute;nica folha (frente e verso). Abaixo tem um c&oacute;digo para um bot&atilde;o (macro) que fiz e est&aacute; na planilha mas est&aacute; imprimindo em folhas separadas.
[code=VB]
Sub ImprimirLimpezaeBkp_Clique()
  Range(A1:V38).Select                    'Impress&atilde;o P&aacute;gina 1
  Selection.PrintOut Copies:=1
  ActiveWindow.SmallScroll Down:=-54
  Range(A40:V79).Select                 'Impress&atilde;o P&aacute;gina 2
  Selection.PrintOut Copies:=1
  ActiveWindow.SmallScroll Down:=-54
 
  Range(x01).Select                          'Ap&oacute;s imprimir, o cursor seleciona a c&eacute;lula 'x01'.
End Sub
[/code]
Abra&ccedil;o.

Answer

Quantas folhas tem o formul&aacute;rio? Voc&ecirc; manda imprimir as p&aacute;ginas &iacute;mpares (por exemplo p&aacute;g 1 e 3), vira as folhas e manda imprimir as p&aacute;ginas pares (por exemplo p&aacute;g. 2 e 4).

No seu caso a&iacute;, voc&ecirc; s&oacute; deixa uma folha na impressora, manda imprimir, vira a folha e manda a impressora continuar a impress&atilde;o (ela vai dar um aviso de que o papel acabou).

Answer

Shura16. S&atilde;o dois formul&aacute;rios que saem um em cada folha. A impressora tem a op&ccedil;&atilde;o de imprimir frente e verso sem ter que virar o papel na bandeja.

Valeu.

Answer

Isso &eacute; muito bom, n&atilde;o conhecia impressoras assim!

N&atilde;o sou bom com VBA, mas deve haver uma op&ccedil;&atilde;o para marcar isso na configura&ccedil;&atilde;o da impressora via VBA.
Se fosse comigo, eu tentaria gravar um macro pelo  gravador de macro e depois verificaria o c&oacute;digo gerado. De posse desse c&oacute;digo gerado tentaria identificar qual o c&oacute;digo que marca a op&ccedil;&atilde;o de imprimir em Frente e Verso da impressora.

Answer

[QUOTE=J_ANGELO_JR, post: 7105292, member: 950622]Shura16. S&atilde;o dois formul&aacute;rios que saem um em cada folha. A impressora tem a op&ccedil;&atilde;o de imprimir frente e verso sem ter que virar o papel na bandeja.

Valeu.[/QUOTE]

que impressora &eacute; essa q imprime frente e verso sem virar o papel manualmente ???  tb n&atilde;o conhecia !!!

Answer

Mauricio

A minha &eacute; uma HP Deskjet Ink Advantage 5525 e faz isso.

[]s

Answer

H&aacute; muitos impressoras a imprimir frente e verso sem ser preciso recolocar as folhas manualmente.

Agora, como se trata duma defini&ccedil;&atilde;o da impressora e n&atilde;o do Excel, n&atilde;o sei se &eacute; poss&iacute;vel dar essa instru&ccedil;&atilde;o atrav&eacute;s duma macro.

[]s

Answer

[QUOTE=P@tropi, post: 7105398, member: 743236]Mauricio

A minha &eacute; uma HP Deskjet Ink Advantage 5525 e faz isso.

[]s[/QUOTE]

[QUOTE=Otneba62, post: 7105402, member: 302919]H&aacute; muitos impressoras a imprimir frente e verso sem ser preciso recolocar as folhas manualmente.

Agora, como se trata duma defini&ccedil;&atilde;o da impressora e n&atilde;o do Excel, n&atilde;o sei se &eacute; poss&iacute;vel dar essa instru&ccedil;&atilde;o atrav&eacute;s duma macro.

[]s[/QUOTE]

Bom saber .. n&atilde;o conhecia ..  s&oacute; rola essa fun&ccedil;&atilde;o em impressoras ou tem multifuncional tb ???

Answer

[QUOTE=Mauriciodez, post: 7105406, member: 832313]Bom saber .. n&atilde;o conhecia ..  s&oacute; rola essa fun&ccedil;&atilde;o em impressoras ou tem multifuncional tb ???[/QUOTE]

Aqui &eacute; uma multifuncional que tanto faz scan como imprime em frente e verso

Answer

Achei na net aqui ..  resolvido com access vba ...  n&atilde;o sei c aplica a excel, mas j&aacute; &eacute; uma luz

http://maximoaccess.maisforum.com/t17902-resolvidoimprimir-relatorio-frente-e-verso

Answer

Mauricio

A minha impressora &eacute; multifuncional.

[]s

Answer

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&oacute;digo gerado. De posse desse c&oacute;digo gerado tentaria identificar qual o c&oacute;digo que marca a op&ccedil;&atilde;o de imprimir em Frente e Verso da impressora. foi excelente. Fiz isso e retirei os c&oacute;digos extras.
Abaixo o c&oacute;digo para impress&atilde;o de dois formul&aacute;rios.
[code=vb]
Sub ImprimirLimpezaeBkp_Clique()
'1 folha com dois formul&aacute;rios (frente e verso).

Range(A1:V38).Select                   'Seleciona o primeiro formul&aacute;rio.
  Range(A40:V79).Select                 'Seleciona o segundo formul&aacute;rio.
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  IgnorePrintAreas:=False
 
  Range(x01).Select
End Sub
[/code]
A impressora que utilizamos &eacute; Lexmark T656dne. N&atilde;o tem scanner, s&oacute; impress&atilde;o. Ver o modelo no Google imagem.
Abra&ccedil;os.

Ferramentas

Mover Tópico