[Resolvido]Imprimir relatório Frente e Verso

Bom dia ! na minha aplicação criei uma macro que bloqueia o CTrl+P e ao inves disso chama um MsgBox perguntando se deseja imprimir,caso sim um procedimento sera executado antes de imprimir(um insert...)

Gostaria de saber se tem como configurar no relatorio de forma que imprima frente e versona folha, pois antes o usuario ao click no ctrl+p chamava o assistente de impressao do windows e la ele configurava frente e verso.

So que agora a immpressão é via

Docmd.OpenReport "Nomerelatorio" ,AcNormal , , , AcWindowNormal


Tem como configurar via VBA de forma que imprimi frente e verso ?

Obrigado !

Achei algumas opções na internet mas não funcionou


Essa...

Private Sub PrintCatalogReport()
Dim rpt As Report
Application.Printer = Application.Printers(0)

DoCmd.OpenReport "rpt_Carta", acViewPreview, , "cpf= """ & rs!CPF & """", acHidden
'DoCmd.OpenReport "rpt_carta", acViewPreview, , , acHidden
Set rpt = Reports!rpt_carta
With rpt.Printer
.BottomMargin = 720
.Copies = 1
.Duplex = acPRDPHorizontal ' Vertical 'Double sided
.PaperBin = acPRBNLargeCapacity
End With
DoCmd.OpenReport "rpt_carta", acViewNormal
DoCmd.Close acReport, "rpt_carta", acSaveNo
Set Application.Printer = Nothing
End Sub



E essaa....


Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
   Dim bIsOdd As Boolean
   
   bIsOdd = (Me.Page Mod -2)   'Yields 0 for even, or -1 for odd.
   
   'Hide this Section (and its page break) if already at odd page.
   With Me.Section("GroupFooter1")
       If .Visible = bIsOdd Then
           .Visible = Not bIsOdd
       End If
   End With
End Sub


Mesmo configurando a impressora pra imprimir frente e verso o relatorio nao imprimi, qualquer outra coisa imprimi normal frente e verso mas o relatorio nao imprimi.

Alguma Sugestão?
Ou pelo menos antes de imprimir chamar o assistente de impressão do windows via vba ?

Já vi há algum tempo no forum formulários a imitar o ctr+p da impressão no qual parece mesmo com o das impressoras e dá para o que queres tenta procurar se não encontrares diz pode ser que eu tenha algum exemplo que saquei na altura para o meu disco externo.

Achei algo em um forum de excel que é exatamente o que preciso mas nao consiguir alterar o codigo para o access mesmo sendo VBA

application.Dialogs(xlDialogPrint).Show

http://www.excelforum.com/excel-programming-vba-macros/467095-macro-for-ctrl-p-to-print-print.html


Se caso achar o exemplo agradeço, eu não achei no fórum de formulário.

Obrigado !

Ok fui ver no meu disco e só encontrei estes dois exemplos ve se algum serve

Boa noite colegas, tenho esse exemplo guardado também ve se serve.

ToyeBom, O seu exemplo tem todas opções menos imprimir frente e Verso.

Fernando o código que eu postei inicialmente é justamente desse exemplo, mas testei e não funcionou.

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
Dim bIsOdd As Boolean

bIsOdd = (Me.Page Mod -2) 'Yields 0 for even, or -1 for odd.

'Hide this Section (and its page break) if already at odd page.
With Me.Section("GroupFooter1")
If .Visible = bIsOdd Then
.Visible = Not bIsOdd
End If
End With
End Sub

Teste o codigo em excel e funcionou justamente o que eu preciso.

Alguem sabe dizer como fica esse codigo no Access?

application.Dialogs(xlDialogPrint).Show

https://dl.dropboxusercontent.com/u/19875180/Call_Print.xls

Rafael bom dia.

Verdade não tinha visualizado o código do bd.

Alguma ideia ?

Eu pré visualizo o report e ai configuro a impressora, mas tente aqui pode ser que tenha algum tipo de ajuda:

http://www.usandoaccess.com.br/tutoriais/tuto47.asp?id=1

http://info.abril.com.br/forum/viewtopic.php?f=149&t=22100

http://maximoaccess.forumeiros.com/t12365-resolvidobotao-para-impressao-de-relatorio

toyebom, valeu pela atenção, mas os links que vc postou eu ja havia olhado inclusive postei esse na info no inicio.ja o do Avelino até baixei o exemplo mas nao vi nenhuma opção de imprimir frente e verso. e o ultimo link nao da certo pq ele sempre imprimi o mesmo relatorio no verso.


No meu caso o usuário abre o relatório em modo de visualização de impressão e quando aperta Ctrl+p, ao invés de chamar o assistente de impressão criei uma macro autokeys que bloqueia o Ctrl+p e chama uma função que faz uma rotina (insert e update...)e depois no final dessa rotina ele imprimi(Docmd.OpenReport "Nomerelatorio" ,AcNormal , , , AcWindowNormal).


O problema é como mando imprimir dessa forma ((Docmd.OpenReport "Nomerelatorio" ,AcNormal , , , AcWindowNormal)) o usuário não consegue configurar para imprimir frente e verso.


A minha ideia era no final de rotina da função chamar o assistente de impressão para que o usuário configurasse frente e verso.

No Excel o código seria esse application.Dialogs(xlDialogPrint).Show mas alguém sabe me dizer como fica esse código em access ?

Obrigado !

Public Function DialogoImprime()
On Error GoTo ImprimirRelat_Erro
Dim msg As String
'Abre a caixa de diálogo Imprimir.
'Tem o mesmo efeito que Ctrl+P.
DoCmd.RunCommand acCmdPrint
Exit Function

ImprimirRelat_Erro:
Select Case err
Case 2501
' 2501 - Qdo clicar no botão Cancelar da caixa de diálogo Imprimir.
msg = "A impressão foi cancelada!"
Case 2046
' 2046 - Não há nenhum objeto selecionado.
msg = "Selecione um objeto antes de imprimir."
Case Else
MsgBox err.Number & vbCrLf & err.Description, _
vbExclamation, "Erro"
End Select
MsgBox msg, vbInformation, "Status da Impressão"
End Function

Obrigado Cunha,

DoCmd.RunCommand acCmdPrint

Resolveu meu problema

Valeu !!