Normal bir Modül sayfasına VBA makrosu ekleyerek özel bir Baskı Raporları oluşturabilirsiniz (makro www.exceltip.com adresinden indirilebilir).
Özel Baskı Raporunun Yapısı:
2. Sütun A: Bu sütun 1 ile 3 arasında sayılar içerir: sayfadan yazdır, aralık adına göre yazdır veya Özel Görünümden yazdır (önerilir).
3. Sütun B: Sayfa adını, aralık Adını veya Özel Görünüm adını yazın.
4. Sütun C: Altbilgiye yazdırılacak sayfa numarasını yazın.
Makro bir sayfadan yazdıracak ve sayfa numarası, çalışma kitabı adı, yol adresi ve sayfa adı ile yazdırma tarihi ve saati dahil olmak üzere gerekli bilgileri altbilgiye otomatik olarak ekleyecektir.
Alt Rapor Raporları()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
ActiveSh As Çalışma Sayfası Dim, SelectShNameView As String
Dim ShNameView As String, Cell As Range
Application.ScreenUpdating = Yanlış
ActiveSh = ActiveSheet'i ayarla
Aralık("a2").Seç
Range(Range("a2"), Range("a2").End(xlDown)) içindeki her hücre için
Vaka hücresini seçin.Değer
Dava 1
Sayfalar(ShNameView).Seçin
2. durum
Application.GoTo Reference:=ShNameView
Durum 3
ActiveWorkbook.CustomViews(ShNameView).Göster
Seçimi Bitir
ActiveSheet.PageSetup ile
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & " " & "&A &T &D"
İle bitmek
ActiveWindow.SelectedSheets.PrintOut Kopyaları:=1
sonraki ben
ActiveSh.Seç
Application.ScreenUpdating = Doğru
Alt Bitiş
5. Makrodaki For Her döngüsü, A2'den başlayarak A sütunundaki her hücre için ayrı bir yazdırmaya neden olur.
6. Döngüde, Baskı alanı Select Case tekniği kullanılarak seçilir.
7. Altbilginin sol tarafında yazdırılan bilgiler: &08 = 8 punto yazı tipi, &D = Tarih, &T = Saat.
8. Makroyu sayfadan çalıştırmak için Alt+F8 tuşlarına basın, makroyu seçin ve Çalıştır'a tıklayın.
VEYA
Sayfaya bir düğme ekleyin ve makroyu buna ekleyin.
9. Not: Sınırsız sayıda rapor eklemek için bu tekniği kullanın.
Ekran Görüntüsü // Özel Rapor Yöneticisi Oluşturma