- Katılım
- 8 Mart 2007
- Mesajlar
- 582
- Excel Vers. ve Dili
- excel 2000 Türkçe
- Altın Üyelik Bitiş Tarihi
- 29-04-2021
İyi akşamlar arkadaşlar aşağıdaki kod ile baskı önizleme yaparak yazıcıyı otomatik olarak seçiyorum.
Fatura olarak oluşturduğum özel boyuttaki kağıdın da otomatik olarak seçilmesini istiyorum. Bu konuda yardımlarınızı bekliyorum.
'Baskı Önizleme
ActiveWindow.SmallScroll Down:=12
Range("B1:F24").Select
Range("F24").Activate
ActiveSheet.PageSetup.PrintArea = "$B$1:$F$24"
ActiveWindow.SmallScroll Down:=-15
Range("A7").Select
'Yazıcı Seçimi
Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II "
ActiveWindow.SelectedSheets.PrintOut
Fatura olarak oluşturduğum özel boyuttaki kağıdın da otomatik olarak seçilmesini istiyorum. Bu konuda yardımlarınızı bekliyorum.
'Baskı Önizleme
ActiveWindow.SmallScroll Down:=12
Range("B1:F24").Select
Range("F24").Activate
ActiveSheet.PageSetup.PrintArea = "$B$1:$F$24"
ActiveWindow.SmallScroll Down:=-15
Range("A7").Select
'Yazıcı Seçimi
Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II "
ActiveWindow.SelectedSheets.PrintOut