Hello,
I am getting this error but I don't know what I am missing. I used this same code in another form and did not get this error?
Below is part of the code.
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String, Payee As String
Dim xlObj As Excel.Application
Dim wkbk As Object
Dim strUser As String
Dim strAttachment As String
Dim OutlApp As Object
Dim acOutputxl As Object
Dim DoCmd As Object
Dim acExportQualityPrint As Object
DoCmd.OutputTo acOutputxl, "ExcelWorkbook(*.xlsx)", "C:\users" & strUser & "\desktop" & "ACH Transfers" & Format(Date, "mmddyy") & ".xlsx", False, "", , acExportQualityPrint
I am getting this error but I don't know what I am missing. I used this same code in another form and did not get this error?
Below is part of the code.
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String, Payee As String
Dim xlObj As Excel.Application
Dim wkbk As Object
Dim strUser As String
Dim strAttachment As String
Dim OutlApp As Object
Dim acOutputxl As Object
Dim DoCmd As Object
Dim acExportQualityPrint As Object
DoCmd.OutputTo acOutputxl, "ExcelWorkbook(*.xlsx)", "C:\users" & strUser & "\desktop" & "ACH Transfers" & Format(Date, "mmddyy") & ".xlsx", False, "", , acExportQualityPrint