Solved

Access printing shortcut in Ms Access

Posted on 2016-10-26
10
51 Views
Last Modified: 2016-11-27
I have a report that I have set up a printing shortcut set up in the printing preferences that selects the bin , papersize and orientation.Can I use VBA to make the shortcut active when selecting the report and return the printer back to the previous setting when exiting the database
0
Comment
Question by:Svgmassive
  • 4
  • 3
  • 2
  • +1
10 Comments
 
LVL 27

Expert Comment

by:MacroShadow
ID: 41861921
What is a "printing shortcut"?
0
 
LVL 34

Expert Comment

by:PatHartman
ID: 41862562
Access remembers certain printer settings for a report such as alternate trays.  You will need to test on several computers but shouldn't have to make any adjustments as long as they are using a similar printer.
0
 
LVL 31

Assisted Solution

by:Helen_Feddema
Helen_Feddema earned 250 total points
ID: 41863926
Make a new printer item with the settings you wish, then use code like the following to temporarily switch to that printer, print the report, then switch back to the default printer:

Public Sub PrintToSpecificPrinter(strPrinter As String, strReport As String)
'Created by Helen Feddema 12-Feb-2010
'Last modified by Helen Feddema 12-Feb-2010

On Error GoTo ErrorHandler

   Dim prtCurrent As Printer
   Dim prtDefault As Printer
   
   'Save current default printer
   Set prtDefault = Application.Printer
   Debug.Print "Current default printer: " & prtDefault.DeviceName
   
   'Select a specific printer as new default printer
   Application.Printer = Printers(strPrinter)
   
   'Print the report
   DoCmd.OpenReport strReport
   
   'Set printer back to former default printer
   Application.Printer = prtDefault
      
ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & _
      Err.Description
   Resume ErrorHandlerExit

End Sub

Open in new window

0
 

Author Comment

by:Svgmassive
ID: 41865550
I am trying to change the paper and bin selection at the printing short cuts.
I have attached the jpeg.
thanks
printing_shortcuts.bmp
0
 
LVL 27

Expert Comment

by:MacroShadow
ID: 41865659
@Svgmassive
That is a printer specific feature, not something that can be controlled from VBA unless the printer company provides an API (which it probably doesn't).
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 

Author Comment

by:Svgmassive
ID: 41865833
The problem I am having since i don't have admin rights the PDF is of a legal size paper and i need it to print from tray 3 and it doesn't do that from within ms access
0
 
LVL 27

Accepted Solution

by:
MacroShadow earned 250 total points
ID: 41865968
Try this:
Private Sub cmdPrintReport_Click()

    Dim rpt As Report
    Dim prtr As Access.printer

    Set Application.printer = Nothing
    Set prtr = Application.printer

    ' set paper size
    prtr.PaperSize = acPRPSLegal
    ' set paper bin
    prtr.PaperBin = acPRBNLower

    ' open your report in hidden view to apply the settings
    DoCmd.OpenReport "rptYourReportName", acViewPreview, , , acHidden
    Set rpt = Reports!rptYourReportName
    
    ' Set the Printer property of the report to the
    Set rpt.printer = prtr
    
    ' open the report in normal view to print
    DoCmd.OpenReport "rptYourReportName", acViewNormal
    DoCmd.Close acReport, "rptYourReportName", acSaveNo
    
    ' cleanup
    Set Application.printer = Nothing

End Sub

Open in new window

0
 

Author Comment

by:Svgmassive
ID: 41866080
Hi MacroShadow that works for printing the report.I am trying to bulk print pdf files in a folder from within access and it doesn't chose the correct bin.I have to constantly go and select the right bin.

Thanks
0
 
LVL 27

Expert Comment

by:MacroShadow
ID: 41866083
How are you printing the PDFs?
0
 
LVL 31

Expert Comment

by:Helen_Feddema
ID: 41866248
Can you post your code?
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now