I have a front end and back end Access 2010 db.&nbsp; Both sit on a network and 7 users can access it.&nbsp; I put the following code in so the user can&nbsp;open a&nbsp;report convert it to pdf, save to a network drive that everyone has access to then fax and&nbsp;finally a&nbsp;transmission page is sent to the user's email.<BR><BR>On my PC the process works as it should, however, it crashes on everyone else's .&nbsp; I'm totally at a loss at to why, the front end is the same one I and everyone else use, so it can't be an issue with a library reference.<BR><BR>Below is the code I'm having an issue with and this is the line where the code fails:&nbsp;
<DIV style="MARGIN-LEFT: 40px" data-cke-expando="70">
Code:
&nbsp;&nbsp;&nbsp; DoCmd.OutputTo acOutputReport, str_Report_Name, acFormatPDF, MyPath &amp; MyFilename, False<BR>
<BR></DIV>
<DIV data-cke-expando="73">I've also tried this code and it fails also:<BR></DIV>
<DIV style="MARGIN-LEFT: 40px" data-cke-expando="76">
Code:
&nbsp;&nbsp;&nbsp; 'DoCmd.OpenReport str_Report_Name, acViewPreview, "", str_Where, acWindowNormal, ""&nbsp;&nbsp; 'Opens the report<BR>
<BR></DIV>
Code:
<P>Public Sub SendFax()<BR>Dim Cancel As Integer<BR>Dim rsp As String</P>
<P>Dim str_MyPath As String<BR>Dim str_MyFilename As String<BR>Dim str_Report_Name As String<BR>Dim str_Where As String</P>
<P>Dim str_FaxNum As String<BR>Dim str_ToFaxName As String</P>
<P>Dim oLook As Object<BR>Dim oMail As Object</P>
<P>str_MyPath = "s:\Roberta Price\Drive1\Drive1_Pandora\Re_Faxes\"<BR>str_MyFilename = sToFaxName &amp; "_MedRec_Request.pdf"<BR>str_Report_Name = "rpt_Cvr_PS_Mailing_User_Select"</P>
<P>str_FaxNum = "[FAX: " &amp; str_ToFaxName &amp; "@" &amp; Me.PCP_ProviderFAX &amp; "]"<BR>str_ToFaxName = Me.PCP_ProviderName<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>'We need to verify if we have a FAX number for the PVD--if we don't exit the sub<BR>&nbsp;&nbsp;&nbsp; If IsNull(Me.PCP_ProviderFAX) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rsp = InputBox("You must enter a FAX #!")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNull(rsp) Or False Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.PCP_ProviderFAX = rsp<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.PCP_ProviderFAX.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo Err_Need_FaxNum<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; <BR>Err_Need_FaxNum:<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;<BR>&nbsp;'We&nbsp;need a form to open while the conversion and faxing takes place&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; Call MESS("Processing Report to PDF and sending Fax.....")<BR>&nbsp;&nbsp;&nbsp; <BR>'Open the report and save it as PDF<BR>&nbsp;&nbsp;&nbsp; 'DoCmd.OpenReport str_Report_Name, acViewPreview<BR>&nbsp;&nbsp;&nbsp; DoCmd.OutputTo acOutputReport, str_Report_Name, acFormatPDF, MyPath &amp; MyFilename, False</P>
<P>&nbsp;&nbsp;&nbsp; 'DoCmd.OpenReport str_Report_Name, acViewPreview, "", str_Where, acWindowNormal, ""&nbsp;&nbsp; 'Opens the report<BR>&nbsp;&nbsp;&nbsp; Reports!str_Report_Name.Caption = "Medical Record Request:" &amp; MyFilename&nbsp;&nbsp;&nbsp; 'Renames the Report<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Let's close our previewed report<BR>&nbsp;&nbsp;&nbsp; 'DoCmd.Close acReport, str_Report_Name<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>'Now that we have a FAX NUM and saved the report in PDF to "Drive1), we need to send&nbsp;the fax to the&nbsp;PVD&nbsp;&nbsp;&nbsp; </P>
<P>&nbsp;&nbsp;&nbsp; Set oLook = CreateObject("Outlook.Application")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set oMail = oLook.createitem(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With oMail<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .To = str_FaxNum<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Body = "See attached"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .subject = "Medical Record Request"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Attachments.Add str_MyPath &amp; str_MyFilename<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Send<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "Fax was sent to " &amp; Me.PCP_ProviderName, vbOKOnly<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Status = ""<BR>&nbsp;&nbsp;&nbsp; Set oMail = Nothing<BR>&nbsp;&nbsp;&nbsp; Set oLook = Nothing</P>
<P>DoCmd.Close acForm, "frm_Please_Wait", acSaveNo</P>
<BR><BR><BR>And lastly I can't understand why a subform changes poistion on the main form and I have the form properties set to NO on resize.<BR><BR>Any suggestions would be wonderful.&nbsp; PLEASE?<BR><BR><BR>