Yazdırma Makrosu

[SDorak]

aşağıdaki yazdırma macrosu yapmaya çalıştım fakat ben macronun CTRL+P Yapıp kalmasını istiyorum ki macroyu kullanan diğer kullanıcılarda kendi yazıcılarını veya istedikleri herhangi bi yazıcıyı seçip enter yapabilsinler... :yardim:

Sub Yazdır()
'
Application.ActivePrinter = "Ne01: üzerindeki Oki ML3320 (Kopya 1) "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne01: üzerindeki Oki ML3320 (Kopya 1) ", Collate:=True
End Sub

 

[Ömer]

Merhaba,

Sub Pencere()
    Application.Dialogs(xlDialogPrint).Show
End Sub

İstediğiniz bu mu?

 

[SDorak]

Eyvallah Sağolasın Üstadım..

 

[kontto]

Arkadaşlar sayfa1 de oluşturduğum 3 adet butonla sayfa2,sayfa3 ve sayfa4 deki verileri nasıl yazdırabilirim bana makro yazabilirmisiniz

 

[Ömer]

Merhaba,

Sub Yaz1()
Sheets("[COLOR=red]Sayfa2[/COLOR]").PrintOut
End Sub

Aynı mantıkla diğer sayfa adlarını yazarak farklı makro oluşturabilirsiniz..

.

 

[kontto]

teşekkür ederim