Automatically Closing Print Preview Window

[chris.williams]

Hi all - I am attempting to send a PDF via a DoCmd.SendObject command. One of the requirements is to have the PDF attachment named after a variable field in the report. The only way I have been able to get this to work is through a DoCmd.OpenReport and name the Window what I need the file name to be named.

The problem exists when the print preview window does not close. If I run another report, the original print preview window is not replaced and the wrong report is sent with the SendObject command. The work around for this is to manually close the print preview window.

I have tried automatically closing it after the SendObject command with a DoCmd.Close command, but I am unable to close it that way.



I am looking for either one of two solutions:
1) a more elegant way of sending a "named" PDF attachment via SendObject or
2) a way to automatically close the Print Preview window.

Thanks...

DoCmd.OpenReport "rpt_Certificate", acViewPreview, , , acWindowNormal

DoCmd.SendObject acSendReport, "rpt_Certificate", acFormatPDF, MailTo, _
    MailCC, , Subject, Body, True

DoCmd.Close acReport, [FTSOCertNumber]

[chris.williams]

I was able to fix the problem through a work around. I have a close window button on the form and an Access macro that does a CloseWindow. It works, but I'd like to have it work in VBA.

[pbaldy]

This line:

DoCmd.Close acReport, [FTSOCertNumber]

Would have to specify the report name, similarly to when you opened it:

DoCmd.Close acReport, "rpt_Certificate"

[chris.williams]

the rpt_Certificate is just a variable for [FTSOCertNumber]. I have the following and none of them work:

DoCmd.Close acReport, rpt_Certificate
DoCmd.Close acReport, 'rpt_Certificate'
DoCmd.Close acReport, "rpt_Certificate"

[pbaldy]

Did some testing, and it's because you're using the True argument to edit the email. That seems to pause the code. I found that if I send the email, the code then finishes and the report closes.

[chris.williams]

OK Thanks - I will give that a shot.