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
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