Tenho a intenção de imprimir um relatório de um registro específico sem abri-lo, para tornar a operação menos demorada, porém não estou conseguindo.
Este código imprime certo, porém abre o relatório:
On Error Resume Next
DoCmd.RunCommand acCmdSave
DoCmd.RefreshRecord
DoCmd.OpenReport "Rel_OSImpressa", acViewNormal, , "CodAssistencia=" & NumOS
DoCmd.PrintOut
DoCmd.Close acReport, "Rel_OSImpressa"
NumOS = 0
Este código não abre o relatório, porém imprime todos os registros:
DoCmd.OpenReport "Rel_OSImpressa", , , "CodAssistencia=" & NumOS
DoCmd.SelectObject acReport, "Rel_OSImpressa"
DoCmd.PrintOut
NumOS = 0
Grato
Claudemir
Este código imprime certo, porém abre o relatório:
On Error Resume Next
DoCmd.RunCommand acCmdSave
DoCmd.RefreshRecord
DoCmd.OpenReport "Rel_OSImpressa", acViewNormal, , "CodAssistencia=" & NumOS
DoCmd.PrintOut
DoCmd.Close acReport, "Rel_OSImpressa"
NumOS = 0
Este código não abre o relatório, porém imprime todos os registros:
DoCmd.OpenReport "Rel_OSImpressa", , , "CodAssistencia=" & NumOS
DoCmd.SelectObject acReport, "Rel_OSImpressa"
DoCmd.PrintOut
NumOS = 0
Grato
Claudemir