DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sheets("sayfa2").printout
Aşağıdaki kodu kullanabilirsiniz.
Kod:sheets("sayfa2").printout
ActiveWindow.SelectedSheets.PrintOut
[LEFT]sheets("sayfa2").printprewiew[/LEFT]
Kod:s1.Select ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28" ActiveWindow.SelectedSheets.[B]PrintPreview[/B]
Bu haliyle bir deneyin. Yazdırmak için
.printprewiew
kısmını
.printout
yapın.