Raporlama Ve Yazdirma Sayfasi ?

[Rido66]

Merhaba ArkadaŞlar Yardimlariniz İÇİn Şİmdİden TeŞekkÜr Ederİm.
Bİr Verİ Taplosunda İstedİĞİm KoŞullardakİ Verİyİ Dİrek Baski Önİzlemede Nasil GÖrebİlİrİm. ÖrneĞİn 30 Satir Ve 8 SÜtÜndan OluŞan Bİr MÜŞterİ Bİlgİ Tablosundan Sadece Telefon Ve Vergİ Numaralarinin GÖzÜkmesİnİ SeÇeceĞİm Ve BaŞlattiĞimda SonuÇ Baski Önİzlemede GÖzÜkecek Ve Ben Dİrek YazdirabİleceĞİm. Yardimlariniz İÇİn Şİmdİden TeŞekkÜr Ederİm.

 

[Seyit Tiken]

Bu kodu kendinize uyarlayınız.

Sub Düğme1_Tıklat()
ActiveSheet.DisplayAutomaticPageBreaks = False
Sheets(1).PageSetup.PrintArea = "$C$3:$F$14"
ActiveWindow.SelectedSheets.PrintPreview
Sheets(1).PrintOut
Sheets(1).PageSetup.PrintArea = ""
End Sub