Yazılan belgenin hangi yazıcıdan çıktığını msgboxta görmek istiyorum

[mars2]

İyi Pazarlar,

Yazdır makrosu ile istenilen sayfayı yazdırıyorum. Ancak, yazılan belgenin hangşii yazcıdan çıktığını msgbox ta göstermek istiyorum. msgbox'uın bulunduğu satıra nasıl bir kod eklemek gereklidir.


Sub Yazıcı()
Dim a As Variant
Dim Yazıcı As String

If MsgBox("YAZDIRMA İŞLEM YAPILACAK MI?", vbYesNo + 32, "DİKKAT !") = vbNo Then

MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
Sheets("Liste").Activate

Else
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
a = InputBox("ETİKET YAZDIRILACAK", "")
If a = Empty Or a = 0 Then Exit Sub
If IsNumeric(a) And a <> vbNullString Then
ActiveWindow.SelectedSheets.PrintOut Copies:=a, Collate:=True

MsgBox "İşleminiz tamamlanmıştır."
End If
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

MsgBox "Şu anda kullanılan yazıcı: " & Application.ActivePrinter

 

[mars2]

Sayın Muzaffer Ali;

ilgi ve yardımlarınız için teşekkürler. Kodu uyguladığımda hata vermedi ve çalıştı.