F
Franck
I have a sub showing a message box and calling another sub and after
continue few code. when the sub is called it doesn't even run trough
it i received a Invalid use of property and it point out my other sub
this is the boggus sub and dont find anything wrong in it
Public Sub PrintJob()
On Error GoTo Err_PrintJob
NetPrint
Select Case CurrentSerie
Case "CRD"
CRDPrint
Case "DA2"
DA2Print
Case "DA3"
DA3Print
Case "DA4"
DA4Print
Case "PDS"
DPPrint
Case "DP"
DPPrint
Case "DA5"
DA5Print
Case "DA6"
DA6Print
Case "DB"
DBPrint
Case "DK"
DKPrint
Case "DS"
DSPrint
Case "DSV"
DSVPrint
Case "DQ"
DQPrint
Case "MAM"
MAMPrint
Case "PAC"
PACPrint
Case "RA5"
DA5Print
Case "DV5"
DA5Print
Case "RB"
RBPrint
Case "RK"
RKPrint
Case "RS"
RSPrint
End Select
NetPrint
DoCmd.OpenReport "QuotationReportDetails", acViewPreview
Exit_PrintJob:
Exit Sub
Err_PrintJob:
MsgBox ("Error " & Err & ": " & Error$)
Resume Exit_PrintJob
End Sub
continue few code. when the sub is called it doesn't even run trough
it i received a Invalid use of property and it point out my other sub
this is the boggus sub and dont find anything wrong in it
Public Sub PrintJob()
On Error GoTo Err_PrintJob
NetPrint
Select Case CurrentSerie
Case "CRD"
CRDPrint
Case "DA2"
DA2Print
Case "DA3"
DA3Print
Case "DA4"
DA4Print
Case "PDS"
DPPrint
Case "DP"
DPPrint
Case "DA5"
DA5Print
Case "DA6"
DA6Print
Case "DB"
DBPrint
Case "DK"
DKPrint
Case "DS"
DSPrint
Case "DSV"
DSVPrint
Case "DQ"
DQPrint
Case "MAM"
MAMPrint
Case "PAC"
PACPrint
Case "RA5"
DA5Print
Case "DV5"
DA5Print
Case "RB"
RBPrint
Case "RK"
RKPrint
Case "RS"
RSPrint
End Select
NetPrint
DoCmd.OpenReport "QuotationReportDetails", acViewPreview
Exit_PrintJob:
Exit Sub
Err_PrintJob:
MsgBox ("Error " & Err & ": " & Error$)
Resume Exit_PrintJob
End Sub