Możesz utworzyć niestandardowe raporty drukowania, dodając makro VBA do zwykłego arkusza modułu (makro można pobrać ze strony www.exceltip.com).
Struktura niestandardowego raportu drukowania:
2. Kolumna A: Ta kolumna zawiera liczby od 1 do 3: drukowanie z arkusza, drukowanie według nazwy zakresu lub drukowanie z widoku niestandardowego (zalecane).
3. Kolumna B: Wpisz nazwę arkusza, nazwę zakresu lub nazwę widoku niestandardowego.
4. Kolumna C: Wpisz numer strony do wydrukowania w stopce.
Makro wydrukuje z arkusza i automatycznie doda do stopki niezbędne informacje, w tym numer strony, nazwę skoroszytu, adres ścieżki i nazwę arkusza, a także datę i godzinę drukowania.
Podrzędne raporty wydruku()
Dim NumberPages jako Integer, PageNumber jako Integer, i jako Integer
Dim ActiveSh As Worksheet, ChooseShNameView As String
Dim ShNameView As String, komórka As Range
Application.ScreenUpdating = Fałsz
Ustaw ActiveSh = Aktywny arkusz
Zakres("a2").Wybierz
Dla każdej komórki In Range(Range("a2"), Range("a2").End(xlDown))
Wybierz komórkę sprawy.Wartość
Przypadek 1
Arkusze (ShNameView). Wybierz
Przypadek 2
Application.GoTo Reference:=ShNameView
Przypadek 3
ActiveWorkbook.CustomViews(ShNameView).Show
Koniec Wybierz
Z ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & " " & "&A &T &D"
Kończyć z
ActiveWindow.SelectedSheets.Wydruk Kopie:=1
Dalej ja
ActiveSh.Select
Application.ScreenUpdating = Prawda
Napis końcowy
5. Pętla For Each w makrze powoduje osobny wydruk dla każdej komórki w kolumnie A, zaczynając od A2.
6. W pętli obszar wydruku jest zaznaczany techniką Select Case.
7. Informacje wydrukowane po lewej stronie stopki: &08 = czcionka 8 punktów, &D = data, &T = godzina.
8. Aby uruchomić makro z arkusza, naciśnij Alt+F8, wybierz makro i kliknij Uruchom.
LUB
Dodaj przycisk do arkusza i dołącz do niego makro.
9. Uwaga: Użyj tej techniki, aby dodać nieograniczoną liczbę raportów.
Zrzut ekranu // Tworzenie niestandardowego menedżera raportów