Når du lagrer data på Excel-ark, er det en god praksis å angi utskriftsområder. Ellers vil vi ende opp med en enorm oppgave med å justere kolonneposisjoner. Ved å bruke Excel-makro kan du enkelt angi utskriftsområder for alle regnearkene dine. La oss lære om det i denne artikkelen.
Last ned nå
Hvis du ønsker å starFor å bruke programvaren så snart som mulig, kan du:
Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.
Excel-utskrift – ikke en rakettvitenskap
Mange blir frustrerte når de skriver ut Excel-regnearkene, spesielt hvis regnearkene er for brede eller for høye til å passe på en enkelt side. Hvis du allerede vet at excel-dokumentet vil bli skrevet ut, er det en god praksis å designe excel-regnearkene dine før du legger til innhold i det. Ved å bruke Scaling-alternativet kan du designe excel-arket ditt og sjekke hvordan du vil at det skal skrives ut. Sideskift gjør Excel-ark alltid utskriftsvennlige.
La oss forberede GUI
Skriptet kan kopieres inn i en ny modul i enhver Excel-arbeidsbok som utskriftsområdet må angis for. For å spare tid og krefter kan du imidlertid kopiere skriptet til en ny makroaktivert arbeidsbok. Fjern uønskede ark fra den arbeidsboken og behold et enkelt ark som kan gis nytt navn til "GUI". Som vist på bildet, lag en knapp for å la brukeren bla gjennom og velge Excel-arbeidsboken.
La oss gjøre det funksjonelt
Etter å ha kopiert skriptet til en ny modul, fest skriptet "P_fpick" til knappen "Bla gjennom" og skriptet "DrawPrintArea" skal festes til knappen "Angi utskriftsområde".
Hvordan virker det?
Prosedyren "P_fpick" vil tillate brukeren å bla gjennom og velge en Excel-fil. Manuset «DrawPrintArea" ville lese filbanen fra arket "GUI" og åpne den. For hvert regneark i den åpnede arbeidsboken vil skriptet identifisere det brukte området og deretter angi utskriftsområdet.
Sub DrawPrintArea() Dim v1 As Workbook Dim ab As Workbook Set ab = ThisWorkbook Dim v2 As Worksheet Dim lastRow As Long Set v1 = Workbooks.Open(Range("D6").Value) For Every v2 In v1.Worksheets v2.PageSetup. PrintArea = v2.UsedRange.Address Neste v1.Close True ab.Activate End Sub Sub P_fpick() Dim v_fd As Office.FileDialog Set v_fd = Application.FileDialog(msoFileDialogFilePicker) Med v_fd .AllowMulte.Title velg = False " . arbeidsbok" .Filters.Clear .Filters.Add "Excel", "*.xls*" If .Show = True Then Range("D6").Value = .SelectedItems(1) End If End With End Sub
Juster det
Per nå leser og håndterer skriptet en enkelt arbeidsbok. Du kan endre GUI slik at brukeren kan liste opp flere arbeidsbøker. Som en alternativ metode kan du også la brukeren bla gjennom og velge en mappe i stedet for en Excel-arbeidsbok. Makroen må justeres tilsvarende for å lese alle Excel-arbeidsbøker i den valgte mappen og undermappen. Hvis skriptet ikke er i stand til å angi utskriftsområdet, er det store sjanser for at arket kan være ødelagt og Excel-gjenoppretting er den eneste løsningen.
Forfatterintroduksjon:
Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ordfiks og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med.
Legg igjen en kommentar