VBA - Print PDF, but maintain A4 print margins whatever the screen resolution of the PC.

[Rinse04]

I have the current code which selects the PDF printer of whatever PC it is used on, however depending on the screen resolution of the PC the margins will change so the printed PDF looks different depending on which PC is used.
I am looking for a way to print the same PDF on whatever PC or resolution the spreadsheet is opened on.

Function FindPrinter(ByVal PrinterName As String) As String
  Dim Arr As Variant
  Dim Device As Variant
  Dim Devices As Variant
  Dim Printer As String
  Dim RegObj As Object
  Dim RegValue As String
  Const HKEY_CURRENT_USER = &H80000001
       
    Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    RegObj.enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Devices, Arr
    
      For Each Device In Devices
        RegObj.getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Device, RegValue
        Printer = Device & " on " & Split(RegValue, ",")(1)
        If InStr(1, Printer, PrinterName, vbTextCompare) > 0 Then
           FindPrinter = Printer
           Exit Function
        End If
      Next
End Function

Sub Printallpages()
Dim filenamex As String
Dim sCurrentPrinter As String

sCurrentPrinter = Application.ActivePrinter
Application.ActivePrinter = FindPrinter("Microsoft Print to PDF")

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select


Path = CreateObject("WScript.Shell").specialfolders("Desktop")


filenamex = Path & "" & "Document"


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    filenamex, Quality:=xlQualityStandard, IncludeDocProperties:=False, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True
     
'print document, then go back to the original printer
Application.ActivePrinter = sCurrentPrinter
    
End Sub

Any help greatly appreciated.

 

[RoryA]

A reminder:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:
VBA - Print PDF, but maintain A4 print margins whatever the screen resolution of the PC.

If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.