Solved

Access printing shortcut in Ms Access

Posted on 2016-10-26
10
56 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 35

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
Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

 

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
 

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

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

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

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

803 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