Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Printing

Status
Not open for further replies.
leslied

leslied

MIS
May 29, 2003
108
0
0
US
The following is the code in my command button for printing the report: My question is , how do I specify a default printer?

thank you....

code is as follows:

Private Sub cmd_print_Click()
On Error GoTo Err_cmd_print_Click

Dim db As Database
Dim qdf_check As QueryDef
Dim qdf_rcu As QueryDef
Dim qdf_dd As QueryDef
Dim qdf_cd As QueryDef
Dim qdf_dn As QueryDef
Dim qdf_adv As QueryDef
Dim qdf_ps As QueryDef
Dim qdf_ps_b As QueryDef
Dim qdf_sax As QueryDef
Dim qdf_sax1 As QueryDef
Dim qdf_sax2 As QueryDef
Dim qdf_18_ded As QueryDef
Dim qdf_18_dow As QueryDef
Dim qdf_18_dd As QueryDef
Dim qdf_18_ss As QueryDef
Dim qdf_18_sp As QueryDef
Dim qdf_sa80 As QueryDef
Dim qdf_sa16 As QueryDef
Dim qdf_sa85 As QueryDef
Dim qdf_sa86 As QueryDef
Dim qdf_sa29 As QueryDef
Dim qdf_sa28 As QueryDef

Set db = DBEngine.Workspaces(0).Databases(0)
Set qdf_check = db.QueryDefs("check")
Set qdf_rcu = db.QueryDefs("sa25")
Set qdf_dd = db.QueryDefs("disk_ded")
Set qdf_cd = db.QueryDefs("comp_ded")
Set qdf_dn = db.QueryDefs("disk_net")
Set qdf_ps = db.QueryDefs("pay_slip")
Set qdf_ps_b = db.QueryDefs("pay_slip_b")
Set qdf_sax = db.QueryDefs("sa10erpr_a")
Set qdf_sax1 = db.QueryDefs("sa10erpr_da")
Set qdf_sax2 = db.QueryDefs("sa10erpr_sal")
Set qdf_adv = db.QueryDefs("advice")
Set qdf_18_ded = db.QueryDefs("sa18_ded")
Set qdf_18_dow = db.QueryDefs("sa18_dow")
Set qdf_18_dd = db.QueryDefs("sa18_dd")
Set qdf_18_ss = db.QueryDefs("sa18_ss")
Set qdf_18_sp = db.QueryDefs("sa18_sp")
Set qdf_sa80 = db.QueryDefs("sa80")
Set qdf_sa16 = db.QueryDefs("sa16")
Set qdf_sa85 = db.QueryDefs("sa85")
Set qdf_sa86 = db.QueryDefs("sa86")
Set qdf_sa29 = db.QueryDefs("sa29")
Set qdf_sa28 = db.QueryDefs("sa28")

Select Case giReport
Case 1
qdf_adv.Properties("sql") = "execute mf_advice " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa15", acNormal
Case 2
qdf_ps.Properties("sql") = "execute mf_pay_slip " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_ps_b.Properties("sql") = "execute mf_pay_slip_b " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_pay_slip", acNormal
Case 3
qdf_18_dd.Properties("sql") = "execute mf_sa18_dd " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_ded.Properties("sql") = "execute mf_sa18_ded " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_dow.Properties("sql") = "execute mf_sa18_dow " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_ss.Properties("sql") = "execute mf_sa18_ss " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_sp.Properties("sql") = "execute mf_sa18_sp " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa18_sp", acNormal
DoCmd.OpenReport "rpt_sa18_ss", acNormal
DoCmd.OpenReport "rpt_sa18_dd", acNormal
DoCmd.OpenReport "rpt_sa18_ded", acNormal
DoCmd.OpenReport "rpt_sa18_dow", acNormal
Case 4
qdf_18_dd.Properties("sql") = "execute mf_sa18_dd " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_dd.Properties("sql") = "execute mf_emp_ded_dd " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_ded.Properties("sql") = "execute mf_sa18_ded " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_dow.Properties("sql") = "execute mf_sa18_dow " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_18_ss.Properties("sql") = "execute mf_sa18_ss " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa19_ss", acNormal
DoCmd.OpenReport "rpt_sa19_dd", acNormal
DoCmd.OpenReport "rpt_sa19_ded", acNormal
DoCmd.OpenReport "rpt_sa19_dow", acNormal
Case 5
qdf_rcu.Properties("sql") = "execute mf_sa25 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa25", acNormal
Case 6
MsgBox "NON-PRINTABLE REPORT: Generate Report Only"
Case 7
MsgBox "NON-PRINTABLE REPORT: Generate Report Only"
Case 8
qdf_check.Properties("sql") = "execute mf_check " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
qdf_ps_b.Properties("sql") = "execute mf_pay_slip_b " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_cheque", acNormal
Case 9
MsgBox "NON-PRINTABLE REPORT: Generate Report Only"
Case 11
qdf_sa80.Properties("sql") = "execute mf_sa80 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa80", acNormal
Case 12
qdf_sa28.Properties("sql") = "execute mf_sa28 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa28A", acNormal
Case 13
qdf_sa28.Properties("sql") = "execute mf_sa28 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa28B", acNormal
Case 14
qdf_sa86.Properties("sql") = "execute mf_sa86 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa86", acNormal
Case 15
qdf_sa85.Properties("sql") = "execute mf_sa85 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa85", acNormal
Case 16
qdf_sa29.Properties("sql") = "execute mf_sa29 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa29", acNormal
Case 20
qdf_sax.Properties("sql") = "execute mf_sa10erpr_a " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa10erpr_a", acNormal
qdf_sax1.Properties("sql") = "execute mf_sa10erpr_da " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa10erpr_da", acNormal
qdf_sax2.Properties("sql") = "execute mf_sa10erpr_sal " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa10erpr_sal", acNormal
Case 23
MsgBox "NON-PRINTABLE REPORT: Generate Report Only"
Case 24
MsgBox "NON-PRINTABLE REPORT: Generate Report Only"
Case 25
qdf_sa80.Properties("sql") = "execute mf_sa80 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa81", acNormal
Case 26
qdf_ps.Properties("sql") = "execute mf_pay_slip_emp " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34) & ", " & Chr(34) & _
gstrEmp_id & Chr(34)
qdf_ps_b.Properties("sql") = "execute mf_pay_slip_b_emp " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34) & ", " & Chr(34) & _
gstrEmp_id & Chr(34)
DoCmd.OpenReport "rpt_pay_slip", acNormal
Case 27
qdf_sa16.Properties("sql") = "execute mf_sa16 " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34)
DoCmd.OpenReport "rpt_sa16", acNormal
Case 28
qdf_ps.Properties("sql") = "execute mf_pay_slip_empl " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34) & ", " & Chr(34) & _
gstrEmpl_id & Chr(34)
qdf_ps_b.Properties("sql") = "execute mf_pay_slip_b_empl " & Chr(34) & _
gstrPayroll & Chr(34) & ", " & Chr(34) & gstrPay_pd & Chr(34) & ", " & Chr(34) & _
gstrEmpl_id & Chr(34)
DoCmd.OpenReport "rpt_pay_slip", acNormal
End Select

Exit_cmd_print_Click:
Exit Sub

Err_cmd_print_Click:
MsgBox Err.DESCRIPTION
Resume Exit_cmd_print_Click

End Sub
 
Status
Not open for further replies.

Similar threads

jjmclell
  • Locked
  • Question
Batch printing individual form records
Replies
0
Views
25
jjmclell
jjmclell
lmcate
  • Locked
  • Question
Printing Logo in Form and Report ACCESS 2007
Replies
2
Views
26
lmcate
lmcate
kopy
  • Locked
  • Question
Database Window UnHides When Printing Form
Replies
1
Views
17
TheAceMan1
TheAceMan1
DaveMac
  • Locked
  • Question
Design Help with Printing Many Files
Replies
5
Views
33
Andrzejek
Andrzejek
Boots6
  • Locked
  • Question
Printing Attachments
Replies
0
Views
8
Boots6
Boots6

Part and Inventory Search

Sponsor

Back
Top