Puteți crea rapoarte de tipărire personalizate adăugând macrocomandă VBA la o foaie obișnuită a modulului (macrocomanda poate fi descărcată de pe www.exceltip.com).
Structura raportului de tipărire personalizată:
2. Coloana A: Această coloană conține numere cuprinse între 1 și 3: tipăriți din coală, tipăriți după numele intervalului sau tipăriți din Vizualizare personalizată (recomandat).
3. Coloana B: Tastați numele foii, numele intervalului sau numele Vizualizării personalizate.
4. Coloana C: Tastați numărul paginii de imprimat în subsol.
Macrocomanda se va imprima dintr-o foaie și va adăuga automat informațiile necesare la subsol, inclusiv numărul paginii, numele registrului de lucru, adresa căii și numele foii, precum și data și ora tipăririi.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh ca foaie de lucru, ChooseShNameView As String
Dim ShNameView As String, celulă As Range
Application.ScreenUpdating = Fals
Setați ActiveSh = ActiveSheet
Range ("a2"). Selectați
Pentru fiecare celulă din Range (Range ("a2"), Range ("a2"). End (xlDown))
Selectați Celula caz. Valoare
Cazul 1
Foi de calcul (ShNameView). Selectați
Cazul 2
Application.GoTo Reference: = ShNameView
Cazul 3
ActiveWorkbook.CustomViews (ShNameView) .Show
Selectare sfârșit
Cu ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Se termina cu
ActiveWindow.SelectedSheets.PrintOut Copies: = 1
Apoi eu
ActiveSh.Select
Application.ScreenUpdating = Adevărat
Sfârșitul Sub
5. Bucla Pentru fiecare bucată din macro determină o imprimare separată pentru fiecare celulă din coloana A începând de la A2.
6. În buclă, zona de imprimare este selectată utilizând tehnica Selectare caz.
7. Informațiile tipărite în partea stângă a subsolului: & 08 = font cu 8 puncte, & D = Data și & T = Ora.
8. Pentru a rula macro-ul din foaie, apăsați Alt + F8, selectați macro-ul și faceți clic pe Run.
SAU
Adăugați un buton pe foaie și atașați macrocomanda la aceasta.
9. Notă: utilizați această tehnică pentru a adăuga un număr nelimitat de rapoarte.
Captură de ecran // Crearea unui Manager de rapoarte personalizat
