VBA Print to Default Printer

[MenstonBantam]

Hi,

I have a VBA code to print to PDF which then changes excel printer to PDF. However I want to ise a second button to print to my office printer. Unfortunately the code I am using just prints to PDF. Can anyone help.
Sub Transmittal_Print_PDF()
'
' Print Transmittal to PDF
'
Application.Goto Reference:="Print_Area"
Selection.PrintOut Preview:=True, ActivePrinter:="Microsoft Print To PDF"

End Sub



Sub Transmittal_Print_Office()
'
' Print Transmittal
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True, IgnorePrintAreas:=False

End Sub

 

[portews]

If you run the code below at work, select the printer you want to print to and it will give you the real name of printer you want. Copy that name, then you can put that into your code, replacing the "Microsoft Print To PDF" in the code you have.

Sub PrinterNames()
Dim Printer As String

bOK = Application.Dialogs(xlDialogPrinterSetup).Show      'choose the printer
     If bOK = False Then Exit Sub
Printer = InputBox("Printer name for this computer", "Get Printer Names", Application.ActivePrinter)

End Sub