"Excel" VBA spausdinti kaip PDF ir išsaugoti su automatiniu failo pavadinimu

Hugh West

27-05-2023 Makrokomandos ir "Excel VBA
  • Pasidalinti
Hugh West

Eksportas yra naudingas "Excel" skaičiuoklę kaip PDF dokumentą. Pakeitę failą į PDF formatą, galėsime jį atspausdinti ir bendrinti su įvairiais profesiniais ryšiais. PDF yra patikimas standartas eksportuojant dokumentus, kuriuos jaučiate poreikį bendrinti su kitais arba viešinti. Šiame straipsnyje pademonstruosime keletą VBA pavyzdžių, kaip spausdinti kaip PDF ir išsaugoti su automatiniu failo pavadinimu.

Atsisiųsti praktikos sąsiuvinį

Galite atsisiųsti pratybų sąsiuvinį ir pasipraktikuoti su jais.

VBA Spausdinti į PDF.xlsm

9 "Excel" VBA pavyzdžiai, kaip spausdinti kaip PDF ir išsaugoti su automatiniu failo pavadinimu "Excel" programoje

Naudodamiesi "Excel" įrankių juosta galime lengvai atspausdinti "Excel" failą kaip PDF failą ir išsaugoti failą su automatiniu failo pavadinimu. Tačiau paprasčiau būtų su "Excel" VBA . Mums reikia tik VBA kodą ir juos paleisti. Mums nereikia tiek daug paspaudimų užduočiai atlikti ir tai taupo mūsų laiką.

"Visual Basic for Applications ( VBA ) - tai programavimo modelis ir izoliuota programa, dažniausiai sutinkama "Microsoft Office Tai analitinė priemonė, dažnai prieinama kaip "Excel" priedai , kuri optimizuoja rankines operacijas, pavyzdžiui, monotoniškus, daug laiko reikalaujančius darbus. Ji taip pat gali generuoti CSV Taigi, pažiūrėkime keletą pavyzdžių, kaip spausdinti "Excel" failą kaip PDF failą su automatiniu failo pavadinimu.

1. Spausdinti sąsiuvinį į PDF & amp; Automatiškai išsaugoti failo pavadinimą "Excel" programoje

Tarkime, norime atspausdinti visą sąsiuvinį ir išsaugoti failo pavadinimą, kaip įrašėme kodą. Dabar tarkime, kad norime išsaugoti PDF failą savo kompiuteryje Vietinis diskas (E:) . Kaip matome toliau pateiktame paveikslėlyje, toje vietoje nėra jokių pdf failų. Paleidę VBA kodą, galėsime matyti savo norimą PDF failą toje vietoje mūsų kompiuteryje.

Su "Excel" VBA , naudotojai gali lengvai naudoti kodą, kuris veikia kaip "Excel" juostos meniu. Norėdami naudoti VBA kodą, kad galėtumėte spausdinti pdf ir išsaugoti automatinį failo pavadinimą, atlikime šią procedūrą.

ŽINGSNIAI:

  • Pirmiausia eikite į Kūrėjas skirtuką iš juostos.
  • Antra, iš Kodas kategoriją, spustelėkite "Visual Basic atidaryti "Visual Basic" redaktorius . Arba paspauskite Alt + F11 atidaryti "Visual Basic" redaktorius .

  • Užuot tai darę, galite tiesiog dešiniuoju pelės klavišu spustelėti darbalapį ir eiti į Peržiūrėti kodą . Taip pat pateksite į "Visual Basic" redaktorius .

  • Tai bus rodoma "Visual Basic" redaktorius kur rašome kodus, skirtus sukurti lentelę iš diapazono.
  • Trečia, spustelėkite Modulis iš Įdėkite išskleidžiamojo meniu juostoje.

  • Taip bus sukurtas Modulis savo sąsiuvinyje.
  • Nukopijuokite ir įklijuokite VBA toliau pateiktas kodas.

VBA kodas: 

 Sub Print_Workbook() Dim loc As String loc = "E:\Workbook.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Paleiskite kodą paspausdami F5 klaviatūros klavišą.

  • Galiausiai galite pamatyti, kad PDF failo pavadinimas, Darbo knyga dabar yra tame kelyje jūsų kompiuteryje. Tai reiškia, kad failo pavadinimas automatiškai išsaugomas.

  • Ir galiausiai, jei grįšite į sąsiuvinį, pamatysite kelias punktyrines linijas. Taip yra todėl, kad failas jau paruoštas spausdinimui.

VBA kodo paaiškinimas 

 Dalis Print_Workbook()

Sub tai kodo dalis, kuri naudojama kodo darbams atlikti, bet negrąžina jokios vertės. Ji taip pat vadinama paprocedūra. Taigi savo procedūrą pavadiname Print_Workbook() . 

 loc = "E:\Workbook.pdf"

Šioje eilutėje įrašoma vieta ir pdf failo pavadinimas. E: kompiuteryje ir pavadinkite failą Darbo knyga . 

 ActiveWorkbook.ExportAsFixedFormat Tipas:=xlTypePDF, failo pavadinimas:=loc

Ši kodo eilutė skirta eksportuoti "Excel" failą kaip PDF failą ir paruošti jį spausdinimui. 

 Pabaiga Sub

Taip procedūra bus baigta.

Skaityti daugiau: "Excel" eksportavimas į PDF su hipersaitais (2 greiti metodai)

2. Automatiškai išsaugokite aktyvų darbalapį kaip PDF failą

Pažiūrėkime kitą pavyzdį, kaip spausdinti aktyvųjį lapą į pdf ir automatiškai išsaugoti failo pavadinimą naudojant "Excel" VBA .

ŽINGSNIAI:

  • Pirmiausia eikite į Plėtoti r skirtuką iš juostos.
  • Antra, spustelėkite "Visual Basic atidaryti "Visual Basic" redaktorius .
  • Kitas būdas atidaryti "Visual Basic" redaktorius tiesiog paspauskite Alt + F11 .
  • Arba dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą .
  • Tada eikite į Įdėkite ir pasirinkite Modulis iš išskleidžiamojo meniu.
  • Bus atidarytas "Visual Basic" langas.
  • Po to nukopijuokite ir įklijuokite VBA kodas žemiau.

VBA kodas: 

 Sub Print_Sheet() Dim loc As String loc = "E:\Worksheet.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Be to, paspauskite F5 klavišas arba spustelėkite Paleisti "Run Sub paleisti kodą.

  • Panašiai kaip ir ankstesniame pavyzdyje, failas išsaugomas kaip PDF failas su automatiniu failo pavadinimu.

Jei skaitote example1's kodo paaiškinimą, tai suprasite ir jūs.

Skaityti daugiau: "Excel" makrokomandos: išsaugojimas kaip PDF su data failo pavadinime (4 tinkami pavyzdžiai)

3. PDF failo spausdinimas iš "Excel" naudojant VBA diapazone

Panagrinėkime kitą pavyzdį, kaip panaudoti "Excel VBA", kad aktyvus lapas būtų atspausdintas į pdf ir automatiškai išsaugotas failo pavadinimas.

ŽINGSNIAI:

  • Norėdami pradėti, spustelėkite Kūrėjas juostos skirtukas.
  • Antra, paleiskite "Visual Basic" redaktorius spustelėdami "Visual Basic .
  • Taip pat galite pasiekti "Visual Basic" redaktorius paspausdami Alt + F11 .
  • Arba, dešiniuoju pelės klavišu spustelėkite lape ir pasirinkite Peržiūrėti kodą iš meniu.
  • Tada pasirinkite Modulis iš išskleidžiamojo lango, esančio Įdėkite .
  • Bus rodomas "Visual Basic" langas.
  • Ten įrašykite kodą.

VBA kodas: 

 Sub PrntPDF() ActiveWindow.SelectedSheets.PrintOut Kopijos:=1, _ Collate:=True, ActivePrinter:="Adobe PDF" Dim fnam As String fnam = Range("B4").Value End Sub
  • Galiausiai paspauskite F5 klavišas paleisti kodą.

  • Vėliau matysite, kad į tą vietą kompiuteryje buvo pridėtas PDF failas pavadinimu Workbook (Darbo knyga). Dėl to automatiškai išsaugomas failo pavadinimas.

Skaityti daugiau: Spausdinti diapazoną į PDF su VBA programa "Excel" (5 paprasčiausi pavyzdžiai)

4. "Excel" VBA, kad būtų galima sukurti kilpą per pasirinktą lapą ir spausdinti PDF

Pažvelkime į kitą būdą, kaip spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą.

ŽINGSNIAI:

  • Norėdami pradėti, atidarykite juostą ir pasirinkite Kūrėjas galimybė.
  • Tada, norėdami pasiekti "Visual Basic" redaktorius , spustelėkite "Visual Basic .
  • Spaudimas Alt + F11 taip pat iškels "Visual Basic" redaktorius .
  • Arba, dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą iš pasirodžiusio meniu.
  • Dabar iš Įdėkite išskleidžiamojo sąrašo parinktį, pasirinkite Modulis .
  • Tada nukopijuokite ir įklijuokite VBA toliau pateikiamas kodas.

VBA kodas: 

 Sub PrntPDF1() Dim wrksht As Worksheet Dim sht As Variant Set sht = ActiveWindow.SelectedSheets For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht sht.Select End Sub
  • Paleiskite kodą paspausdami F5 raktas.

  • Galiausiai pamatysite, kad į tą kompiuterio sritį buvo įkeltas sąsiuvinio PDF failas. Dėl to automatiškai išsaugomas failo pavadinimas.

Taip failas bus išsaugotas kaip darbaknygės lapo numeris.

VBA kodo paaiškinimas 

 For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht

Ši for ciklo kodų eilutė skirta eksportuoti "Excel" failą kaip pdf ir spausdinti failą.

Skaityti daugiau: "Excel VBA": "ExportAsFixedFormat PDF" su pritaikymu prie puslapio (3 pavyzdžiai)

5. Spausdinkite į PDF ir išsaugokite failo pavadinimą instinktyviai "Excel

Dabar pažvelkite į kitą "Excel" VBA metodą, skirtą "Excel" failams išsaugoti į pdf ir pavadinti failą automatine sistema.

ŽINGSNIAI:

  • Norėdami pradėti, atidarykite juostą ir pasirinkite Kūrėjas iš išskleidžiamojo meniu.
  • Tada pasirinkite "Visual Basic atidaryti "Visual Basic" redaktorius .
  • Svetainė "Visual Basic" redaktorius taip pat galima pasiekti paspaudus Alt + F11 .
  • Arba galite dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą iš iškylančiojo meniu.
  • Po to pasirinkite Modulis iš Įdėkite išskleidžiamąjį meniu.
  • Be to, nukopijuokite ir įklijuokite šį VBA kodą.

VBA kodas: 

 Sub PrntPDF2() Dim loc As String loc = "E:\Sheet6.pdf" ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ filename:=loc, _ OpenAfterPublish:=False, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ Quality:=xlQualityStandard, _ From:=1, To:=2 End Sub
  • Galiausiai paleiskite kodą paspausdami F5 ant klaviatūros ir pamatysite rezultatą.

  • Vėliau pamatysite, kad Darbo knyga PDF failas jau buvo įrašytas į tą vietą kompiuteryje. Dėl to automatiškai išsaugomas failo pavadinimas.

Panašiai, kaip ir ankstesniame pavyzdyje, taip pat išsaugosite pdf failą kaip lapo numerį.

VBA kodo paaiškinimas 

 ActiveSheet.ExportAsFixedFormat Tipas:=xlTypePDF, failo pavadinimas:=loc, OpenAfterPublish:=False, IncludeDocProperties:=True, IgnorePrintAreas:=False, Quality:=xlQualityStandard, From:=1, To:=2

Kodo blokas skirtas spausdinti ir išsaugoti "Excel" failą kaip pdf.

Skaityti daugiau: Spausdinimas į PDF ir el. paštu naudojant "Excel" VBA (2 naudingi atvejai)

6. VBA funkcija, skirta automatiškai spausdinti PDF ir išsaugoti failo pavadinimą

Panagrinėkime kitą "Excel" VBA būdą, kaip spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą. Šiame pavyzdyje naudosime funkciją ir išsaugosime failą į PDF. Taip pat naudosime Msgbox pateikti pranešimą, ar failas išsaugotas, ar ne.

ŽINGSNIAI:

  • Pradžioje eikite į Kūrėjas skirtukas> "Visual Basic > Įdėkite > Modulis .
  • Arba, dešiniuoju pelės klavišu spustelėjus ant darbalapio atsidarys langas. Iš jo eikite į Peržiūrėti kodą .
  • Taip pat pateksite į "Visual Basic" redaktorius lauką, kuriame galime užrašyti VBA makrokomandos .
  • Kita vertus, paspaudus Alt + F11 taip pat bus atidarytas "Visual Basic" redaktorius .
  • Po to įveskite VBA kodas.

VBA kodas: 

 Sub PrntPDF3() Dim wrks As Worksheet Dim wrkb As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim myFile As Variant Dim l As Long On Error GoTo errHandler Set wrkb = ActiveWorkbook Set wrks = ActiveSheet sloc = wrkb.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc &; "\" snam = wrks.Range("A1").Value & " Print " &wrks.Range("A2").Value & " PDF " & wrks.Range("A3").Value sf = snam & ".pdf" slocf = sloc & sf If PrintFile(slocf) Then l = MsgBox(vbQuestion + vbYesNo, "File Exists") If l vbYes Then myFile = Application.GetSaveAsFilename(InitialFileName:=slocf, FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Save File Name") If myFile "False" Then slocf = myFile Else GoTo exitHandler End IfEnd If End If wrks.ExportAsFixedFormat Tipas:=xlTypePDF, failo pavadinimas:=slocf, Kokybė:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler End Sub Function PrintFile(rsFullPath As String) As Boolean PrintFile =CBool(Len(Dir$(rsFullPath))> 0) End Function
  • Paleiskite kodą, kad pamatytumėte rezultatą, paspausdami F5 klavišas .

  • Tai bus rodoma Msgbox ir įsitikinkite, kad PDF failas jau paruoštas spausdinimui.

  • Panašiai, kaip ir anksčiau, pastebėsite, kad sąsiuvinio PDF failas jau buvo įrašytas į tą vietą kompiuteryje. Dėl to failo pavadinimas išsaugomas pagal numatytuosius nustatymus. Kadangi nustatome failo pavadinimą Spausdinti PDF , jis išsaugojo failo pavadinimą Spausdinti PDF.

Jei pažvelgsite į ankstesnio kodo paaiškinimą, tinkamai suprasite kodo eilutes. Jums nereikia keisti kodo, tiesiog pakeiskite intervalus pagal savo pageidavimus. Galite nukopijuoti kodą ir naudoti jį savo darbo tikslais.

Skaityti daugiau: "Excel" makrokomandos, skirtos įrašyti kaip PDF failą su failo pavadinimu iš ląstelės reikšmės (2 pavyzdžiai)

7. "Excel" VBA kodas, skirtas spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą

Panagrinėkime kitą "Excel" VBA metodą, skirtą spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą.

ŽINGSNIAI:

  • Norėdami pradėti, eikite į Kūrėjas juostos skirtukas.
  • Antra, skiltyje Kodas pasirinkite "Visual Basic paleisti "Visual Basic" redaktorius . Norėdami atidaryti "Visual Basic" redaktorius , spustelėkite Alt + F11 .
  • Arba galite tiesiog dešiniuoju pelės klavišu spustelėti darbalapį ir pasirinkti Peržiūrėti kodą . Tai padės jums patekti į "Visual Basic" redaktorius taip pat.
  • Tai bus rodoma "Visual Basic" redaktorius , kuriame parašysime kodą, skirtą lentelei iš diapazono generuoti.
  • Trečia, išskleidžiamojo meniu juostoje Insert pasirinkite Modulis .
  • Nukopijuokite ir įklijuokite VBA toliau pateiktas kodas.

VBA kodas: 

 Sub PrintPDF4() Dim wrksht As Worksheet Dim wrkbk As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim file As Variant On Error GoTo errHandler Set wrkbk = ActiveWorkbook Set wrksht = ActiveSheet sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = slocamp &; "\" snam = wrksht.Range("A1").Value & " - " &wrksht.Range("A2").Value & " - " & wrksht.Range("A3").Value sf = snam & ".pdf" slocf = sloc & sf wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" ResumeexitHandler End Sub
  • Tada vykdykite kodą spustelėdami RubSub mygtuką arba paspausdami F5 sparčioji klaviatūros kombinacija.

  • Ypač tada, kai Msgbox pasirodys.

  • Failas išsaugomas kaip PDF failas su tokiu pačiu automatiniu failo pavadinimu, kaip ir ankstesniame pavyzdyje.

VBA kodo paaiškinimas 

 sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrksht.Range("A1").Value & " - " & wrksht.Range("A2").Value & " - " & wrksht.Range("A3").Value

Jie skirti aktyviam sąsiuvinio aplankui gauti, jei sąsiuvinis išsaugomas. 

 sf = snam & ".pdf" slocf = sloc & sf

Taip bus sukurtas numatytasis failų išsaugojimo pavadinimas. 

 wrksht.ExportAsFixedFormat Tipas:=xlTypePDF, failo pavadinimas:=slocf, Kokybė:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Šis blokas tiesiog eksportuoja "Excel" failą į PDF į dabartinį aplanką. 

 MsgBox "Spausdinti PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler

Taip galėsime pamatyti patvirtinimo pranešimą su "Microsoft Excel" failo informacija.

Skaityti daugiau: Spausdinimas į PDF naudojant "Excel" makrokomandos mygtuką (5 makrokomandos variantai)

8. Spausdinti konkretų "Excel" lapą su automatiniu failo pavadinimu

Panagrinėkime kitokį "Excel" VBA metodą, skirtą spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą.

ŽINGSNIAI:

  • Pirmiausia pasirinkite Kūrėjas skirtuką iš juostos.
  • Antra, pagal Kodas kategoriją, pasirinkite "Visual Basic paleisti "Visual Basic" redaktorius . Arba paspauskite Alt + F11 paleisti "Visual Basic" redaktorius .
  • Vietoj to dešiniuoju pelės klavišu spustelėkite darbalapį ir pasirinkite Peržiūrėti kodą .
  • Tai bus rodoma "Visual Basic" redaktorius , kuriame parašysime kodą, skirtą lentelei iš diapazono generuoti.
  • Trečia, iš išskleidžiamojo meniu juostos Insert (Įterpti) pasirinkite Modulis.
  • Be to, nukopijuokite ir įklijuokite VBA kodas žemiau.

VBA kodas: 

 Sub PrintPDF5() Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13") rng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Be to, paleiskite kodą spustelėję RubSub mygtuką arba naudodami F5 sparčioji klaviatūros kombinacija.

  • Šis failas išsaugomas kaip PDF failas tokiu pačiu pavadinimu kaip ir ankstesniame pavyzdyje.

VBA kodo paaiškinimas 

 Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13")

Šie kodų blokai skirti kintamiesiems kurti ir priskirti. 

 rng.ExportAsFixedFormat Tipas:=xlTypePDF, _ filename:=loc

Tai padės išsaugoti įvairius failo duomenis PDF formatu.

Skaityti daugiau: Kaip konvertuoti "Excel" į PDF neprarandant formatavimo (5 veiksmingi būdai)

9. Automatinis failo pavadinimo išsaugojimas spausdinant į PDF failą "Excel VBA" programoje

Pažvelkime į kitą "Excel" VBA metodą, skirtą spausdinti į PDF ir automatiškai išsaugoti failo pavadinimą.

ŽINGSNIAI:

  • Pirmiausia pasirinkite Kūrėjas skirtuką iš juostos.
  • Antra, pasirinkite "Visual Basic iš Kodas sritį, kad atidarytumėte "Visual Basic" redaktorius . Spustelėkite Alt + F11 paleisti "Visual Basic" redaktorius .
  • Taip pat galite dešiniuoju pelės klavišu spustelėti darbalapį ir pasirinkti Peržiūrėti kodą . Taip pat pateksite į "Visual Basic" redaktorius .
  • Dabar galime matyti "Visual Basic" redaktorius , kuriame parašysime kodą, skirtą sukurti lentelę iš diapazono.
  • Be to, pasirinkite Modulis iš Įdėkite išskleidžiamojo meniu juostoje.
  • Tada nukopijuokite ir įklijuokite VBA toliau pateikiamas kodas.

VBA kodas: 

 Sub Prnt_PDF() Call Automatic_Name End Sub Function Automatic_Name() As Boolean ' Nukopijuoja lapus į naują PDF failą, skirtą siųsti el. paštu Dim sht As String, file As String, loc As String Dim s As String Application.ScreenUpdating = False sht = ActiveSheet.Name file = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf" On Error Resume NextActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox "Saved as .pdf file: " & vbCrLf & vbCrLf & SvAs & _ "Review the .pdf document."Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Unable to save as PDF." Automatioc_Name = False EndMacro: End Function
  • Tada kodas bus vykdomas spustelėjus RubSub mygtuką arba naudodami F5 sparčioji klaviatūros kombinacija.

VBA kodo paaiškinimas 

 sht = ActiveSheet.Name failas = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf"

Norėdami gauti failą kaip pdf ir išsaugoti pdf pavadinimą. 

 On Error Resume Next ActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0

Taip tik nustatoma spausdinimo kokybė. 

 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox "Saved as .pdf file: " & vbCrLf & vbCrLf & SvAs & _ "Review the .pdf document." Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Unable to save asPDF." Automatioc_Name = False

Šiose eilutėse naudotojui bus nurodyta, kaip siųsti failą, kad jis būtų išspausdintas kaip pdf.

Skaityti daugiau: Kaip įrašyti "Excel" kaip PDF failą, nenutraukiant (4 tinkami būdai)

Išvada

Pirmiau pateikti metodai padės jums atlikti šį darbą iš Spausdinti į PDF ir išsaugoti automatinį failo pavadinimą "Excel VBA . tikiuosi, kad tai jums padės! Jei turite klausimų, pasiūlymų ar atsiliepimų, praneškite mums komentarų skiltyje. Arba galite peržvelgti kitus mūsų straipsnius ExcelWIKI.com tinklaraštis!

Ankstesnis įrašas Kaip atkurti ankstesnę "Excel" failo versiją (4 paprasti būdai)
Kitas įrašas Kaip padauginti eilutes programoje "Excel" (4 lengviausi būdai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.