I change my default printer for the application in VBA but the margins do not carry over to the new printer.

I use the Application.Printer.TopMargin = objOldPrinter.TopMargin but the value returned is always 0.

Any Ideas.

Thanks

Hi Martin,

Sounds like objOldPrinter no longer exists? Make sure this is being assigned somewhere in your code. ie. print it out to the screen immediately after you set it. And then continue printing out the value further and further down your code until you get to the print command.

Also, couldn't you just set the margin in this line of code yourself? ie. if you know the margin was 2.6, couldn't you just have the code as:
Application.Printer.TopMargin = 2.6;

Let me know how you get on.

Regards, Rich

Thanks for the reply Rich. I dont think the old printer variable has gone out of scope. Here is the code I am using

Private Sub PrintReport(ByVal strPrinterName As String)
Dim objNewPrinter As Printer, objCurrPrinter As Printer, objP As Printer

For Each objP In Printers
If objP.DeviceName = strPrinterName Then
Set objNewPrinter = objP
Exit For
End If
Next

Set objCurrPrinter = Application.Printer
Application.Printer = objNewPrinter
With Application.Printer
.Orientation = objCurrPrinter.Orientation
.Duplex = acPRDPHorizontal
.LeftMargin = objCurrPrinter.LeftMargin
.RightMargin = objCurrPrinter.RightMargin
.TopMargin = objCurrPrinter.TopMargin
.BottomMargin = objCurrPrinter.BottomMargin
End With

DoCmd.OpenReport "rptRiskAssesment", acViewNormal

Application.Printer = objCurrPrinter

DoCmd.Close acForm, "frmPrintOptions"
End Sub

In a nutshell, it finds the printer based on the name passed to it and assigns it to a printer object. The actual application printer is stored in another printer object and replaced with the new printer. The margins, orientation and Duplex are passed to the new printer and the report is printed. Finally the old printer is replaced.

The orientation passes correctly but not the other settings. Does the printer carry margin settings or are these held in the report? One reason for the code to work like this is so that if he user selects the PDF printer option, the save as dialog pops up without them having to press to many buttons!

Many Thanks

Hi Martin,

I'll ask one of our VBA experts to have a look at this for you.

Regards, Rich

Martin

I have passed this on to my colleague Jacob for review.

Regards

Carlos