****error The Output action was canceled***
ต้องการให้ "ต้องการพิมพ์ใบเสร็จ ตัวต้นฉบับ ออกทางเครื่องพิมพ์ 1 ใบ และทั้งต้นฉบับและสำเนา เก็บไว้ที่ Path D:\ และ z:\
Private Sub Command285_Click()
On Error GoTo Command285_DblClick_Err
Dim Filename As String
Dim Filename1 As String
Dim FilePath As String
DoCmd.SetWarnings False
Me.Refresh
Dim sql As String
sql = "SELECT [Forms]![ACC_á¡éä¢_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ]![voucher_s_id] AS voucher_s_id INTO printbill;"
DoCmd.RunSQL sql
Filename = DLookup("voucher_s_id", "printbill") & " m"
FilePath = "Z:\bills64\suzu64\IV\" & Filename & ".pdf"
DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับต้นบับ", acFormatPDF, FilePath
FilePath = "d:\bills-suzu\INV\" & Filename & ".pdf"
DoCmd.OpenReport "ใบเสร็จ-ใบกำกับต้นบับ", acViewPreview, Filename
DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับต้นบับ", acFormatPDF, FilePath
'DoCmd.PrintOut , , , , 1
DoCmd.OpenReport stDocName, acViewNormal
sql = "SELECT [Forms]![ACC_á¡éä¢_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ]![vouher_s_id] AS voucher_s_id INTO printbill;"
DoCmd.RunSQL sql
Filename1 = DLookup("voucher_s_id", "printbill") & " c"
FilePath = "Z:\bills64\suzu64\IV\" & Filename1 & ".pdf"
DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับ สำเนา", acFormatPDF, FilePath
FilePath = "d:\bills-suzu\INV\" & Filename1 & ".pdf"
DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับ สำเนา", acFormatPDF, FilePath
'DoCmd.PrintOut , , , , 2
Command285_DblClick_Exit:
Exit Sub
Command285_DblClick_Err:
MsgBox Error$
Resume Command285_DblClick_Exit
End Sub
