Memilih Printer dengan VBA Excel

Menampilkan Kotak Dialog Printer, setelah dipilih akan ditampilkan di Range A1

Sub cetak()
Application.Dialogs(xlDialogPrinterSetup).Show

If Application.DisplayAlerts = False Then
    Exit Sub
Else
    Range("A1").Value = Application.ActivePrinter
End If

End Sub


Langsung Memilih Printer berdasarkan namanya

Sub pilihPrint()

Application.ActivePrinter = "CutePDF Writer on CPW2:"

End Sub