Setting a Printer

D

DS

I'm trying set the printer according to the value in a textbox.
TxtPrint is the TextBox.
Is this the way to do it?
Thanks
DS

Private Sub PrintCatalogReport()
Dim rpt As Report

Application.Printer = Application.Printers(Me.TxtPrint)

DoCmd.OpenReport "Catalog", acViewPreview, , , acHidden
Set rpt = Reports!Catalog

With rpt.Printer
.BottomMargin = 720
.Copies = 2
.Duplex = acPRDPVertical 'Double sided
.PaperBin = acPRBNLargeCapacity
End With
DoCmd.OpenReport "Catalog", acViewNormal
DoCmd.Close acReport, "Catalog", acSaveNo

Set Application.Printer = Nothing
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Print To Specific Printer 2
Change report printer destination using code 5
View & Print Report from Form's Command Button using Lexmark Printer 1
Access Change My Default Printer 1
Access change My Default Printer for All the Reports 4
Changing printer settings 0
Setting Default Printer 2
PDF Toolbar Button 4

Top