I denne artikel vil vi oprette en makro til udskrivning af data fra forskellige ark.
Vi har forskellige rådata i to ark, og vi vil tilpasse udskrift fra disse ark.
Inden vi kører makroen, skal vi angive den nødvendige udskriftstype og angive navn, område eller brugerdefineret visning.
Vi har oprettet en brugerdefineret visning "customView1".
Logisk forklaring
Vi har oprettet “PrintReports” makro til tilpasset udskrivning. Denne makro går loop fra celle A13 til den sidste række. Vi kan specificere tre forskellige typer til tilpasset udskrivning.
For type 1 skal vi angive arknavnet i den næste kolonne.
For type 2 skal vi angive det område, som vi ønsker udskriften til.
For type 3 skal vi angive navnet på den tilpassede visning.
Kode forklaring
For hver celle1 i området ("A13", ActiveCell.End (xlDown))
Ovenstående kode bruges til loop fra celle A13 til den sidste række.
DefinedName = ActiveCell.Offset (0, 1) .Værdi
Ovenstående kode bruges til at hente værdien fra cellen i den næste kolonne fra den aktive celle.
Vælg Case Cell 1. værdi
Sag 1
'Valg af det definerede ark
Ark (Defineret navn) .Vælg
Sag 2
'Valg af det definerede område
Application.Goto Reference: = Defineret navn
Sag 3
'Valg af den definerede brugerdefinerede visning
ActiveWorkbook.CustomViews (DefinedName) .Vis
Afslut Vælg
Ovenstående Select -sætning bruges til at vælge det angivne område baseret på den type, der er defineret af brugeren.
ActiveWindow.SelectedSheets.PrintOut
Ovenstående kode bruges til at udskrive det valgte område.
Følg venligst nedenstående for koden
Option Eksplicit under PrintReports () 'Deklarerede variabler Dim Defineret navn som streng Dim Cell1 som område' Deaktivering af skærmopdateringer Application.ScreenUpdating = False 'Sløjfer gennem alle cellerne for hver celle1 i område ("A13", ActiveCell.End (xlDown)) Ark ("Main"). Aktiver 'Valg af celle Cell1. Vælg' Hentning af arknavn eller defineret område DefinedName = ActiveCell.Offset (0, 1) .Værdi Vælg Case Cell1.Value Case 1 'Valg af de definerede arkark (Defineret navn Vælg Case 2 'Valg af det definerede område Application.Goto Reference: = DefinedName Case 3' Valg af den definerede tilpassede visning ActiveWorkbook.CustomViews (DefinedName) .Show End Select 'Udskrivning af de nødvendige data ActiveWindow.SelectedSheets.PrintOut Næste Application.ScreenUpdating = True End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet