Când salvați date pe foi Excel, este o practică bună să setați regiunile de imprimare. În caz contrar, vom ajunge cu o sarcină uriașă de ajustare a pozițiilor coloanei. Folosind macrocomandă Excel, puteți seta cu ușurință regiunile de imprimare pentru toate foile de lucru. Să aflăm despre asta în acest articol.
Descarcă acum
Dacă vrei să starPentru a utiliza software-ul cât mai curând posibil, atunci puteți:
În rest, dacă vrei să faci DIY, poți citi conținutul de mai jos.
Imprimarea Excel – nu o știință rachetă
Mulți oameni sunt frustrați în timp ce își imprimă foile de calcul Excel, mai ales dacă foile lor de calcul sunt prea largi sau prea înalte pentru a încăpea pe o singură pagină. Dacă știți deja că documentul Excel va fi tipărit, este o bună practică să vă proiectați foile de calcul Excel înainte de a adăuga conținut la acesta. Folosind opțiunea Scaling, puteți să vă proiectați foaia Excel și să verificați cum doriți să fie tipărită. Întreruperile de pagină fac întotdeauna foile Excel ușor de imprimat.
Să pregătim GUI
Scriptul poate fi copiat într-un modul nou al oricărui registru de lucru Excel pentru care trebuie setată zona de imprimare. Cu toate acestea, pentru a economisi timp și eforturi, puteți copia scriptul într-un nou registru de lucru cu macrocomenzi. Eliminați foile nedorite din acel registru de lucru și păstrați o singură foaie care poate fi redenumită „GUI”. După cum se arată în imagine, creați un buton pentru a permite utilizatorului să răsfoiască și să selecteze registrul de lucru Excel.
Să-l facem funcțional
După ce ați copiat scriptul într-un modul nou, atașați scriptul „P_fpick” la butonul „Răsfoiți” și scriptul „DrawPrin”.tArea” ar trebui atașat la butonul „Setare zonă de imprimare”.
Cum functioneaza?
Procedura „P_fpick” ar permite utilizatorului să răsfoiască și să selecteze un fișier Excel. Scriptul „DrawPrintArea” ar citi calea fișierului din foaia „GUI” și o deschide. Pentru fiecare foaie de lucru din registrul de lucru deschis, scriptul va identifica intervalul utilizat și apoi va stabili zona de imprimare.
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 Each v2 In v1.Worksheets v2.PageSetup. PrintArea = v2.UsedRange.Address Next v1.Close True ab.Activate End Sub Sub P_fpick() Dim v_fd As Office.FileDialog Set v_fd = Application.FileDialog(msoFileDialogFilePicker) Cu v_fd .AllowMultiSelect = ExcelSelect = False . registru de lucru" .Filtre.Ștergeți .Filtre.Adăugați „Excel”, „*.xls*” Dacă .Show = True Then Range(„D6”).Value = .SelectedItems(1) End If End With End Sub
Ajustați-l
De acum, scriptul citește și gestionează un singur registru de lucru. Puteți modifica interfața grafică pentru a permite utilizatorului să listeze mai multe registre de lucru. Ca metodă alternativă, puteți permite utilizatorului să răsfoiască și să selecteze un folder în loc de un registru de lucru Excel. Macrocomanda trebuie ajustată în consecință pentru a citi toate registrele de lucru Excel din folderul și subfolderul selectat. Dacă scriptul nu poate seta zona de imprimare, există șanse mari ca foaia să fie coruptă și Recuperare Excel este singura solutie.
Introducerea autorului:
Nick Vipond este un expert în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remedierea cuvintelor și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com.
Lasă un comentariu