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 bkrike 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
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
135
jjmclell
jjmclell
lmcate
  • Locked
  • Question
Printing Logo in Form and Report ACCESS 2007
Replies
2
Views
143
lmcate
lmcate
kopy
  • Locked
  • Question
Database Window UnHides When Printing Form
Replies
1
Views
120
TheAceMan1
TheAceMan1
DaveMac
  • Locked
  • Question
Design Help with Printing Many Files
Replies
5
Views
193
Andrzejek
Andrzejek
Boots6
  • Locked
  • Question
Printing Attachments
Replies
0
Views
50
Boots6
Boots6

Part and Inventory Search

Sponsor

Back
Top