Jūs varat izveidot pielāgotus drukas pārskatus, pievienojot VBA makro parastajai moduļa lapai (makro var lejupielādēt no vietnes www.exceltip.com).
Pielāgotas drukas atskaites struktūra:
2. A sleja: šajā slejā ir skaitļi no 1 līdz 3: drukāt no lapas, drukāt pēc diapazona nosaukuma vai drukāt no pielāgota skata (ieteicams).
3. Kolonna B: ierakstiet lapas nosaukumu, diapazona nosaukumu vai pielāgota skata nosaukumu.
4. C sleja: kājenē ierakstiet drukājamās lapas numuru.
Makro drukās no lapas un automātiski pievienos kājenei nepieciešamo informāciju, tostarp lapas numuru, darbgrāmatas nosaukumu, ceļa adresi un lapas nosaukumu, kā arī drukāšanas datumu un laiku.
Sub PrintReports ()
Dim NumberPages kā vesels skaitlis, PageNumber kā vesels skaitlis, i kā vesels skaitlis
Aptumšojiet ActiveSh kā darblapu, izvēlietiesShNameView kā virkne
Dim ShNameView kā virkne, šūna kā diapazons
Application.ScreenUpdating = Nepareizi
Iestatiet ActiveSh = ActiveSheet
Diapazons ("a2"). Izvēlieties
Katrai diapazona šūnai (diapazons ("a2"), diapazons ("a2"). Beigas (xlDown))
Atlasiet Lietu celiņš. Vērtība
1. gadījums
Izklājlapas (ShNameView). Atlasiet
2. gadījums
Application.GoTo Reference: = ShNameView
3. gadījums
ActiveWorkbook.CustomViews (ShNameView). Parādīt
Beigas Atlasīt
Ar ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Beigt ar
ActiveWindow.SelectedSheets.PrintOut kopijas: = 1
Tālāk i
ActiveSh. Izvēlieties
Application.ScreenUpdating = Patiess
Beigt apakš
5. Makro cilpa Par katru cilni izraisa atsevišķu drukāšanu katrai A kolonnas šūnai, sākot ar A2.
6. Cilpā drukas apgabals tiek atlasīts, izmantojot tehniku Select Case.
7. Informācija, kas drukāta kājenes kreisajā pusē: & 08 = 8 punktu fonts, & D = datums un T = laiks.
8. Lai palaistu makro no lapas, nospiediet Alt+F8, atlasiet makro un noklikšķiniet uz Palaist.
VAI
Pievienojiet lapai pogu un pievienojiet tai makro.
9. Piezīme. Izmantojiet šo paņēmienu, lai pievienotu neierobežotu skaitu pārskatu.
Ekrānuzņēmums // Pielāgota pārskatu pārvaldnieka izveide