Sub Düğme1_Tıklat()
Application.ActivePrinter = "LPT1: üzerindeki ColorAge ColorQ "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: üzerindeki ColorAge ColorQ ", Collate:=True
End Sub
printer in ismini değiştirmeniz gerekli.Kodu bir düğmeye atayın.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.