Pessoal bom dia,
Tenho 2 relatorios com criterios diferentes, oriundos da mesmo banco.
A cada novo registro eu preciso imprimir o relatorio "pedidos1" na impressora "X" e o "pedidos2" na impressora "Y", mas é necessario imprimir a ultima pagina do relatorio apenas se houver novo registro, pois de acordo com o criterio, tenho registro em "pedidos1" ou em "pedidos2" nunca os dois ao mesmo tempo.
Hoje ao registrar um novo pedido, sai impressao da ultima pagina do "pedidos1" na impressora "x" e o ultimo registro do "pedidos2" na impressora "y", quando deveria apenas sair a impressao do relatorio alterado.
É possivel?
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
DoCmd.OpenForm "Frm_ItensRequisitados"
DoCmd.OpenReport "pedidos1", acViewReport, "", "", acNormal
DoCmd.PrintOut PageFrom:=1, PageTo:=1
DoCmd.OpenReport "pedidos2", acViewReport, "", "", acNormal
'DoCmd.RunCommand acCmdRefresh'
'DoCmd.OpenReport "Orcamento_Finame", acViewReport, "", "", acNormal '
DoCmd.PrintOut PageFrom:=1, PageTo:=1
DoCmd.Close acForm, "Frm_Solicitacao_Itens"
DoCmd.Close
DoCmd.OpenForm "Frm_Solicitacao_Itens"
Obrigado.
Tenho 2 relatorios com criterios diferentes, oriundos da mesmo banco.
A cada novo registro eu preciso imprimir o relatorio "pedidos1" na impressora "X" e o "pedidos2" na impressora "Y", mas é necessario imprimir a ultima pagina do relatorio apenas se houver novo registro, pois de acordo com o criterio, tenho registro em "pedidos1" ou em "pedidos2" nunca os dois ao mesmo tempo.
Hoje ao registrar um novo pedido, sai impressao da ultima pagina do "pedidos1" na impressora "x" e o ultimo registro do "pedidos2" na impressora "y", quando deveria apenas sair a impressao do relatorio alterado.
É possivel?
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
DoCmd.OpenForm "Frm_ItensRequisitados"
DoCmd.OpenReport "pedidos1", acViewReport, "", "", acNormal
DoCmd.PrintOut PageFrom:=1, PageTo:=1
DoCmd.OpenReport "pedidos2", acViewReport, "", "", acNormal
'DoCmd.RunCommand acCmdRefresh'
'DoCmd.OpenReport "Orcamento_Finame", acViewReport, "", "", acNormal '
DoCmd.PrintOut PageFrom:=1, PageTo:=1
DoCmd.Close acForm, "Frm_Solicitacao_Itens"
DoCmd.Close
DoCmd.OpenForm "Frm_Solicitacao_Itens"
Obrigado.