Za spremanje odabranog raspona u Excel (recimo potvrdu) kao PDF u Excelu pomoću VBA upotrijebite sintaksu ispod.
Opći kod
Sub SaveRangeAsPDF () Domet.ExportAsFixedFormat Vrsta: = xlTypePDF, Naziv datoteke:= _ "C: \ Users \ ime_datoteke", Kvaliteta: = xlQualityStandard, _ IncludeDocProperties: = True, IgnorePrintAreas: = False, OpenAfterPublish: = True End Sub
Gornji kôd je generički kôd za spremanje fiksnog raspona kao PDF dokumenta. Kada makronaredba vašeg zapisa dok izvozite Excel u PDF, pojavit će se sličan kod.
Raspon:To može biti fiksni raspon, dinamički raspon ili odabir. Morate ga definirati.
Naziv datoteke: Ovo je potpuno kvalificirano ime pdf -a. Definirajte ga kao niz.
Ostale varijable se mogu ostaviti kakve jesu. Objasnio sam ih nakon primjera.
Primjer: Ispišite Excel račun kao PDF pomoću VBA
Recimo da morate redovito ispisivati i slati račune u Excelu. U tom slučaju želite ga automatizirati. Ne biste htjeli izvoz Excel u pdf uvijek iznova. Ako ovo možete učiniti samo pomoću gumba, bilo bi od pomoći, zar ne?
Evo, ja sam dizajnirao ovaj format primitka. Želim ga ispisati/spremiti/izvesti kao PDF pomoću gumba "Izradi PDF".
Ova potvrda pokriva raspon "A2: L21". Već sam postavio područje ispisa.
Da bismo uštedjeli na ovom Excelovom rasponu u PDF -u, upotrijebit ćemo gore spomenuti generički VBA kod za izvoz Excel lista u PDF. Kôd ćemo prilagoditi prema našim zahtjevima.
Sub PrintSelectionToPDF () Dim invoiceRng As Range Dim pdfile As String 'Raspon postavki za ispis Postavi invoiceRng = Raspon ("A1: L21") "naziv datoteke s vremenskom oznakom. pdfile = "invoice" & "_" & Format (Now (), "yyyymmdd_hhmmss") & ".pdf" 'postavljanje potpunog kvalificiranog imena. Dobiveni pdf bit će spremljen tamo gdje postoji glavna datoteka. pdfile = ThisWorkbook.Path & strfile invoiceRng.ExportAsFixedFormat Vrsta: = xlTypePDF, _ Naziv datoteke: = pdfile, _ Kvaliteta: = xlQualityStandard, _ IncludeDocProperties: = Istina, _ IgnorePrintAreas: = False Lažno, _ Netačno, _ Netačno, _ Lažno
Korištenje koda:
Kopirajte gornji kôd u datoteku računa otvaranjem VBA uređivača (upotrijebite Alt+F11). Podesite raspon i putanju datoteke (ako želite) u kodu koji želite ispisati. Radnu datoteku možete preuzeti u nastavku.
Spremite raspon programa Excel kao PDF pomoću VBA
Obrazloženje:
Dim invoiceRng As Range Dim pdfile As String
Kod je jednostavan. Prvo smo stvorili dvije varijable. "InvoiceRng as Range" za raspon/list koji želimo spremiti kao pdf. strFile za potpuno kvalificirano ime datoteke rezultirajućeg PDF -a.
Postavi invoiceRng = Raspon ("A1: L21")
Budući da je raspon ispisa fiksan, raspon faktura smo postavili kao Raspon ("A1: L21").
pdfile = "invoice" & "_" & Format (Now (), "yyyymmdd_hhmmss") & ".pdf" pdfile = ThisWorkbook.Path & strfile
U gornja dva retka datoteku prvo imenujemo s vremenskom oznakom, a zatim dodamo na putanju glavne datoteke. Kao rezultat toga, pdfile sadrži potpuno kvalificirano ime rezultirajuće pdf datoteke.
invoiceRng.ExportAsFixedFormat _ Vrsta: = xlTypePDF, _ Naziv datoteke: = pdfile, _ Kvaliteta: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = True, _ OpenAfterPublish: = False
Konačno, koristimo metodu ExpoortAsFixedFormat klase Range za ispis definiranog raspona programa Excel kao PDF. Tip definiramo kao xlTypePDF. Drugi izbor je xlTypeXPS, koji će odabrani raspon spremiti kao XPS datoteku.
Ime datoteke postavili smo kao pdfile, koji sadrži niz potpuno kvalificiranog naziva pdf datoteke. Ovdje možete napisati hardkodirani tekst ili ga prilagoditi prema vašim potrebama.
Zatim smo postavili kvalitetu pd datoteke kao xlQualityStandard. Imamo drugi izbor kao xlQualityMinimum.
Zatim postavljamo IncludeDocProperties kao True. To znači da će rezultirajući PDF imati svojstva dokumenta.
Zatim smo postavili IgnorePrintAreas kao True. To znači da će zanemariti već postavljeno područje ispisa.
Konačno, OpenAfterPublish smo postavili kao False. To znači da se datoteka koju stvorite neće otvoriti automatski. Postavio sam pogrešno jer stvaram 100 datoteka pomoću petlje i ne želim da se otvore. Ako želite otvoriti datoteku nakon stvaranja pomoću programa Excel, postavite je kao True.
Korištenje ispisa odabranog raspona kao pdf
Jedna od osnovnih upotreba je ispis odabranog raspona jednostavnim pritiskom na jedan gumb. No, najbolje je koristiti ga u petlji u kojoj morate stvoriti više računa za različite klijente. Napravite podlogu za popunjavanje podataka, a zatim pomoću ovog koda ispišite odabrani raspon u petlji.
Pa da, momci, ovako možete spremiti odabrani raspon kao pdf. Nadam se da vam je to bilo korisno. Ako i dalje imate bilo kakvih nedoumica ili upita u vezi ispisa u excelu pomoću VBA, pitajte u odjeljku komentara u nastavku.
Ispišite više odabira na jednom listu pomoću VBA u Microsoft Excelu | Odaberite više raspona i ispišite svaki raspon na drugom listu koristeći VBA.
Ispišite sve radne knjige u mapi koristeći VBA u programu Microsoft Excel | Koristite ovaj VBA kôd za ispis i spremanje svake radne knjige programa Excel u mapu pomoću.
Popularni članci:
Podijelite Excel list u više datoteka na temelju stupca pomoću VBA | Ovaj VBA kôd dijeli excel tablicu na jedinstvenim vrijednostima u navedenom stupcu. Preuzmite radnu datoteku.
Isključite poruke upozorenja pomoću VBA u programu Microsoft Excel 2016 | Za isključivanje poruka upozorenja koje ometaju rad VBA koda, koristimo klasu Application.
Dodajte i spremite novu radnu knjigu pomoću VBA -a u programu Microsoft Excel 2016 | Za dodavanje i spremanje radnih knjiga koristeći VBA koristimo klasu Radne knjige. Radne knjige. Dodavanje lako dodaje novu radnu knjigu, međutim …