Excel VBA, lai drukātu kā PDF un saglabātu ar automātisku faila nosaukumu

Hugh West

27-05-2023 Makroprogrammas & amp; Excel VBA
  • Dalīties Ar Šo
Hugh West

Eksportēšana ir izdevīga, ja Excel izklājlapu kā PDF dokumentu. Pārveidojot failu PDF formātā, mēs varēsim to izdrukāt un kopīgot ar dažādiem profesionāliem sakariem. PDF ir uzticams standarts dokumentu eksportēšanai, kurus jūtat nepieciešamību kopīgot ar citiem vai publiskot. Šajā rakstā mēs demonstrēsim dažus VBA piemērus, lai izdrukātu kā PDF un saglabātu ar automātisku faila nosaukumu.

Lejupielādēt Practice Workbook

Varat lejupielādēt darba burtnīcu un vingrināties ar tiem.

VBA Drukāt uz PDF.xlsm

9 Excel VBA piemēri drukāšanai kā PDF un saglabāšanai ar automātisku faila nosaukumu programmā Excel

Mēs varam viegli izdrukāt Excel failu kā PDF failu un saglabāt failu ar automātisku faila nosaukumu, izmantojot Excel rīkjoslu. Taču vieglāk būtu ar Excel VBA . Mums tikai nepieciešams VBA mums nav nepieciešams tik daudz klikšķu, lai izpildītu uzdevumu, un tas ietaupa mūsu laiku.

Visual Basic lietojumprogrammām ( VBA ) ir programmēšanas modelis un izolēta programma, kas visbiežāk sastopama Microsoft Office . Tas ir analītisks rīks, kas bieži pieejams kā Excel papildinājumi , kas optimizē manuālas darbības, piemēram, monotonu, laikietilpīgu darbu veikšanu. Tas var arī radīt CSV Tāpēc aplūkosim dažus piemērus, kā izdrukāt Excel failu kā PDF failu ar automātisku faila nosaukumu.

1. Darba burtnīcas drukāšana uz PDF & amp; Automātiski saglabājiet faila nosaukumu programmā Excel

Pieņemsim, ka mēs vēlamies izdrukāt visu darbgrāmatu un saglabāt faila nosaukumu, kā mēs to ierakstījām mūsu kodā. Tagad pieņemsim, ka mēs vēlamies saglabāt PDF failu savā datorā. Vietējais disks (E:) . Kā redzams attēlā zemāk, atrašanās vietā nav pdf failu. Pēc VBA koda palaišanas mēs varēsim redzēt mūsu vēlamo failu. PDF failu šajā vietā mūsu datorā.

Ar Excel VBA , lietotāji var viegli izmantot kodu, kas darbojas kā Excel izvēlnes no lentes. Lai izmantotu VBA kodu, lai izdrukātu pdf un saglabātu ar automātisku faila nosaukumu, izpildīsim šo procedūru.

PASĀKUMI:

  • Vispirms dodieties uz Izstrādātājs cilni no lentes.
  • Otrkārt, no Kods kategorijas, noklikšķiniet uz Visual Basic lai atvērtu Visual Basic redaktors . Vai arī nospiediet Alt + F11 lai atvērtu Visual Basic redaktors .

  • Tā vietā varat vienkārši ar peles labo pogu nospiest uz darblapas un doties uz Skatīt kodu . Tas jūs arī aizvedīs uz Visual Basic redaktors .

  • Tas parādīsies Visual Basic redaktors kur mēs rakstām savus kodus, lai izveidotu tabulu no diapazona.
  • Treškārt, noklikšķiniet uz Modulis no Ievietot nolaižamā izvēlnes josla.

  • Tādējādi tiks izveidots Modulis savā darbgrāmatā.
  • Un kopējiet un ielīmējiet VBA turpmāk parādītais kods.

VBA kods: 

 Sub Print_Workbook() Dim loc As String loc = "E:\Workbook.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Palaidiet kodu, nospiežot F5 taustiņš tastatūrā.

  • Visbeidzot, jūs varat redzēt, ka PDF faila nosaukums, Darba burtnīca tagad atrodas šajā ceļā jūsu datorā. Tas nozīmē, ka faila nosaukums tiek automātiski saglabāts.

  • Un visbeidzot, ja atgriezīsieties savā darbgrāmatā, redzēsiet dažas punktotās līnijas. Tas ir tāpēc, ka fails tagad ir gatavs drukāšanai.

VBA koda skaidrojums 

 Apakšsadaļa Print_Workbook()

Sub ir koda daļa, kas tiek izmantota, lai apstrādātu darbu kodā, bet neatgriež nekādu vērtību. Tā ir pazīstama arī kā apakšprocedūra. Tātad mēs nosaucam mūsu procedūru Print_Workbook() . 

 loc = "E:\Workbook.pdf"

Šajā rindā ir norādīta atrašanās vieta un pdf faila nosaukums. Šeit mēs saglabājam mūsu failu datubāzē E: mūsu datorā un nosauciet šo failu Darba burtnīca . 

 ActiveWorkbook.ExportAsFixedFormat Veids:=xlTypePDF, faila nosaukums:=loc

Šī koda rinda paredzēta Excel faila eksportēšanai PDF formātā un sagatavošanai drukāšanai. 

 End Sub

Procedūra tiks pabeigta.

Lasīt vairāk: Excel eksportēšana uz PDF ar hipersaitēm (2 ātras metodes)

2. Aktīvās darblapas automātiska saglabāšana PDF formātā

Aplūkosim vēl vienu piemēru, kā izdrukāt aktīvu lapu pdf formātā un automātiski saglabāt faila nosaukumu, izmantojot Excel VBA .

PASĀKUMI:

  • Vispirms dodieties uz Izstrādāt r cilni no lentes.
  • Otrkārt, noklikšķiniet uz Visual Basic lai atvērtu Visual Basic redaktors .
  • Vēl viens veids, kā atvērt Visual Basic redaktors ir vienkārši nospiest Alt + F11 .
  • Vai arī noklikšķiniet uz lapas ar peles labo pogu, pēc tam atlasiet Skatīt kodu .
  • Pēc tam dodieties uz Ievietot un izvēlieties Modulis no nolaižamajā izvēlnē.
  • Tādējādi tiks atvērts Visual Basic logs.
  • Pēc tam kopējiet un ielīmējiet VBA kods zemāk.

VBA kods: 

 Sub Print_Sheet() Dim loc As String loc = "E:\Worksheet.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Tālāk nospiediet F5 taustiņš vai noklikšķiniet uz Run Sub pogu, lai palaistu kodu.

  • Līdzīgi kā iepriekšējā piemērā, fails tiek saglabāts kā PDF fails ar automātisku faila nosaukumu.

Ja lasāt example1's koda skaidrojumu, jūs to arī sapratīsiet.

Lasīt vairāk: Excel makro: Saglabāt kā PDF ar datumu faila nosaukumā (4 piemēroti piemēri)

3. PDF faila drukāšana no Excel ar VBA diapazonā

Aplūkosim vēl vienu piemēru, kā izmantot Excel VBA, lai izdrukātu aktīvu lapu pdf formātā un automātiski saglabātu faila nosaukumu.

PASĀKUMI:

  • Lai sāktu, noklikšķiniet uz Izstrādātājs lentes cilne.
  • Otrkārt, palaidiet Visual Basic redaktors noklikšķinot uz Visual Basic .
  • Varat arī piekļūt Visual Basic redaktors nospiežot Alt + F11 .
  • Vai, ar peles labo pogu noklikšķiniet uz uz lapas un izvēlieties Skatīt kodu no izvēlnes.
  • Pēc tam izvēlieties Modulis no nolaižamajā lodziņā zem Ievietot .
  • Parādīsies Visual Basic logs.
  • Ierakstiet kodu tur.

VBA kods: 

 Sub PrntPDF() ActiveWindow.SelectedSheets.PrintOut Kopijas:=1, _ Collate:=True, ActivePrinter:="Adobe PDF" Dim fnam As String fnam = Range("B4").Value End Sub
  • Visbeidzot, nospiediet F5 taustiņš lai palaistu kodu.

  • Pēc tam redzēsiet, ka PDF fails ar nosaukumu Workbook (Darba burtnīca) ir pievienots šai atrašanās vietai datorā. Tādējādi automātiski tiek saglabāts faila nosaukums.

Lasīt vairāk: Drukāt diapazonu PDF formātā ar VBA programmā Excel (5 vienkāršākie piemēri)

4. Excel VBA, lai veidotu cilpu pāri atlasītai lapai un izdrukātu PDF failu

Apskatīsim vēl vienu veidu, kā drukāt uz PDF un automātiski saglabāt faila nosaukumu.

PASĀKUMI:

  • Lai sāktu, atveriet lenti un atlasiet Izstrādātājs iespēja.
  • Pēc tam, lai piekļūtu Visual Basic redaktors , noklikšķiniet uz Visual Basic .
  • Spiežot Alt + F11 tiks parādīts arī Visual Basic redaktors .
  • Alternatīvi, ar peles labo pogu noklikšķiniet uz lapu un izvēlieties Skatīt kodu no parādītās izvēlnes.
  • Tagad no Ievietot nolaižamā opcija, izvēlieties Modulis .
  • Pēc tam kopējiet un ielīmējiet VBA kodu, kas seko.

VBA kods: 

 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
  • Palaidiet kodu, nospiežot F5 atslēga.

  • Galu galā redzēsiet, ka šajā apgabalā datorā ir augšupielādēts darbgrāmatas PDF fails. Līdz ar to automātiski tiek saglabāts faila nosaukums.

Tas saglabās failu kā darbgrāmatas lapas numuru.

VBA koda skaidrojums 

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

Šī for cilpas kodu rinda ir paredzēta Excel faila eksportēšanai pdf formātā un faila drukāšanai.

Lasīt vairāk: Excel VBA: ExportAsFixedFormat PDF ar pielāgošanu lappusei (3 piemēri)

5. Drukāt uz PDF un saglabāt faila nosaukumu instinktīvi programmā Excel

Tagad aplūkojiet citu Excel VBA metodi Excel failu saglabāšanai pdf formātā un nosauciet faila automātisko sistēmu.

PASĀKUMI:

  • Lai sāktu, atveriet lenti un izvēlieties Izstrādātājs no nolaižamajā izvēlnē.
  • Pēc tam atlasiet Visual Basic lai atvērtu Visual Basic redaktors .
  • Portāls Visual Basic redaktors var arī piekļūt, nospiežot Alt + F11 .
  • Varat arī ar peles labo pogu noklikšķiniet uz lapu un izvēlieties Skatīt kodu no uznirstošās izvēlnes.
  • Pēc tam atlasiet Modulis no Ievietot nolaižamajā izvēlnē.
  • Tālāk kopējiet un ielīmējiet šādu VBA kodu.

VBA kods: 

 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
  • Visbeidzot palaidiet kodu, nospiežot F5 uz tastatūras, un jūs redzēsiet rezultātu.

  • Pēc tam redzēsiet, ka Darba burtnīca PDF fails jau ir saglabāts šajā vietā datorā. Tādējādi faila nosaukums tiek saglabāts automātiski.

Līdzīgi kā iepriekšējā piemērā, arī šajā gadījumā tiks saglabāts pdf fails kā lapas numurs.

VBA koda skaidrojums 

 ActiveSheet.ExportAsFixedFormat Tips:=xlTypePDF, faila nosaukums:=loc, OpenAfterPublish:=False, IncludeDocProperties:=True, IgnorePrintAreas:=False, Quality:=xlQualityStandard, From:=1, To:=2

Koda bloks ir paredzēts Excel faila drukāšanai un saglabāšanai pdf formātā.

Lasīt vairāk: Drukāt uz PDF un e-pastu, izmantojot VBA programmā Excel (2 noderīgi gadījumi)

6. VBA funkcija automātiskai PDF drukāšanai un faila nosaukuma saglabāšanai

Izpētīsim vēl vienu Excel VBA veidu, kā automātiski izdrukāt uz PDF un saglabāt faila nosaukumu. Šajā piemērā mēs izmantosim funkciju un saglabāsim failu PDF formātā. Mēs arī izmantojam Msgbox lai sniegtu mums ziņojumu, vai fails ir saglabāts vai nē.

PASĀKUMI:

  • Sākumā dodieties uz Izstrādātājs cilne> Visual Basic > Ievietot > Modulis .
  • Vai, klikšķinot ar peles labo pogu uz darblapas tiks atvērts logs. No tā dodieties uz Skatīt kodu .
  • Un, lai nokļūtu uz Visual Basic redaktors laukā, kurā varam ierakstīt VBA makroekrāni .
  • No otras puses, nospiežot Alt + F11 tiks atvērts arī Visual Basic redaktors .
  • Pēc tam ievadiet VBA kods.

VBA kods: 

 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 End If wrks.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" Resume exitHandler End Sub Function PrintFile(rsFullPath As String) As Buolean PrintFile =CBool(Len(Dir$(rsFullPath))> 0) Beigu funkcija
  • Un palaidiet kodu, lai redzētu rezultātu, nospiežot taustiņu F5 taustiņš .

  • Tas parādīsies Msgbox un pārliecinieties, ka PDF fails ir gatavs drukāšanai.

  • Līdzīgi kā iepriekš, jūs pamanīsiet, ka darbgrāmatas PDF fails jau ir saglabāts šajā datorā esošajā vietā. Tādējādi faila nosaukums pēc noklusējuma tiek saglabāts. Tā kā mēs iestatām faila nosaukumu. Drukāt PDF , tas saglabāja faila nosaukumu Drukāt PDF.

Ja apskatīsiet iepriekšējā koda skaidrojumu, pareizi sapratīsiet koda rindas. Jums nav nepieciešams mainīt kodu, tikai mainiet diapazonus atbilstoši savām vēlmēm. Jūs varat kopēt kodu un izmantot to savam darba mērķim.

Lasīt vairāk: Excel makro programma, lai saglabātu kā PDF ar faila nosaukumu no šūnas vērtības (2 piemēri)

7. Excel VBA kods, lai automātiski izdrukātu PDF un saglabātu faila nosaukumu

Apskatīsim citu Excel VBA metodi drukāšanai uz PDF un automātiskai faila nosaukuma saglabāšanai.

PASĀKUMI:

  • Lai sāktu, dodieties uz Izstrādātājs lentes cilne.
  • Otrkārt, sadaļā Kods atlasiet Visual Basic lai palaistu Visual Basic redaktors . Lai atvērtu Visual Basic redaktors , noklikšķiniet uz Alt + F11 .
  • Varat arī vienkārši noklikšķināt ar peles labo pogu uz darblapas un atlasīt Skatīt kodu . Tas jūs aizvedīs uz Visual Basic redaktors kā arī.
  • Tas tiks parādīts Visual Basic redaktors , kurā mēs rakstīsim kodu, lai no diapazona ģenerētu tabulu.
  • Treškārt, no nolaižamajā izvēlnes joslā Insert izvēlieties Modulis .
  • Un kopējiet un ielīmējiet VBA turpmāk parādītais kods.

VBA kods: 

 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 = sloc & amp; "\" snam = wrksht.Range("A1").Value & amp; " - " &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
  • Pēc tam izpildiet kodu, noklikšķinot uz RubSub vai nospiežot pogu F5 tastatūras saīsnes.

  • Īpaši tad, ja Msgbox parādīsies.

  • Faili tiek saglabāts kā PDF fails ar tādu pašu automātisko faila nosaukumu kā iepriekšējā piemērā.

VBA koda skaidrojums 

 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

Tie ir paredzēti aktīvās darbgrāmatas mapes iegūšanai, ja darbgrāmata ir saglabāta. 

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

Tādējādi tiks izveidots noklusējuma nosaukums failu saglabāšanai. 

 wrksht.ExportAsFixedFormat Tips:=xlTypePDF, faila nosaukums:=slocf, Kvalitāte:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Šis bloks vienkārši eksportē Excel failu uz PDF failu pašreizējā mapē. 

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

Tas ļaus mums redzēt apstiprinājuma ziņojumu ar faila informāciju programmā Microsoft Excel.

Lasīt vairāk: Drukāt uz PDF, izmantojot makro pogas programmā Excel (5 makrovarianti)

8. Izdrukāt konkrētu Excel lapu ar automātisku faila nosaukumu

Apskatīsim citu Excel VBA metodi drukāšanai uz PDF un automātiskai faila nosaukuma saglabāšanai.

PASĀKUMI:

  • Vispirms atlasiet Izstrādātājs cilni no lentes.
  • Otrkārt, saskaņā ar Kods kategorijā atlasiet Visual Basic lai palaistu Visual Basic redaktors . Alternatīvi nospiediet Alt + F11 lai palaistu Visual Basic redaktors .
  • Tā vietā ar peles labo pogu noklikšķiniet uz darblapas un atlasiet Skatīt kodu .
  • Tas tiks parādīts Visual Basic redaktors , kur mēs rakstīsim kodu, lai ģenerētu tabulu no diapazona.
  • Treškārt, izvēlieties Modulis no nolaižamajā izvēlnes joslā Ievietot.
  • Tālāk kopējiet un ielīmējiet VBA kods zemāk.

VBA kods: 

 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
  • Turklāt palaidiet kodu, noklikšķinot uz RubSub pogu vai izmantojot F5 tastatūras saīsnes.

  • Šis fails tiek saglabāts kā PDF fails ar tādu pašu nosaukumu kā iepriekšējā piemērā.

VBA koda skaidrojums 

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

Šie kodu bloki ir paredzēti mainīgo radīšanai un piešķiršanai. 

 rng.ExportAsFixedFormat Tips:=xlTypePDF, _ faila nosaukums:=loc

Tas saglabās virkni faila datu PDF formātā.

Lasīt vairāk: Kā konvertēt Excel uz PDF, nezaudējot formatējumu (5 efektīvi veidi)

9. Automātiska faila nosaukuma saglabāšana, drukājot uz PDF failu programmā Excel VBA

Apskatīsim vēl vienu Excel VBA metodi drukāšanai uz PDF un automātiskai faila nosaukuma saglabāšanai.

PASĀKUMI:

  • Lai sāktu, atlasiet Izstrādātājs cilni no lentes.
  • Otrkārt, izvēlieties Visual Basic no Kods apgabalā, lai atvērtu Visual Basic redaktors . noklikšķiniet uz Alt + F11 lai palaistu Visual Basic redaktors .
  • Varat arī ar peles labo pogu noklikšķiniet uz darblapas un atlasiet Skatīt kodu . Tas jūs arī aizvedīs uz Visual Basic redaktors .
  • Tagad mēs varam redzēt Visual Basic redaktors , kurā mēs rakstīsim kodu, lai izveidotu tabulu no diapazona.
  • Turklāt izvēlieties Modulis no Ievietot nolaižamā izvēlnes josla.
  • Pēc tam kopējiet un ielīmējiet VBA kodu, kas seko.

VBA kods: 

 Sub Prnt_PDF() Call Automatic_Name End Sub Function Automatic_Name() As Boolean ' Kopē lapas jaunā PDF failā nosūtīšanai pa e-pastu 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 & amp; "\" & amp; 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 & _ "Apskatīt .pdf dokumentu."Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Unable to save as PDF." Automatioc_Name = False EndMacro: End Function
  • Pēc tam kods tiks izpildīts, noklikšķinot uz RubSub pogu vai izmantojot F5 tastatūras saīsnes.

VBA koda skaidrojums 

 sht = ActiveSheet.Name fails = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & amp; "\" & amp; sht & amp; ".pdf"

Lai iegūtu failu kā pdf un saglabātu pdf nosaukumu. 

 On Error Turpināt Nākamais ActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0

Tas tikai nosaka drukāšanas kvalitāti. 

 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 & _ "Apskatīt .pdf dokumentu." Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Unable to save asPDF." Automatioc_Name = False

Šajās rindiņās lietotājam tiks sniegti norādījumi, kā nosūtīt failu, lai to izdrukātu pdf formātā.

Lasīt vairāk: Kā saglabāt Excel kā PDF failu, neizgriežot (4 piemēroti veidi)

Secinājums

Iepriekš minētās metodes palīdzēs jums veikt šo darbu no Drukāt uz PDF un saglabāt automātisku faila nosaukumu programmā Excel VBA . Es ceru, ka tas jums palīdzēs! Ja jums ir kādi jautājumi, ieteikumi vai atsauksmes, lūdzu, dariet mums zināmu komentāru sadaļā. Vai arī varat ielūkoties citos mūsu rakstos sadaļā ExcelWIKI.com blogs!

Iepriekšējais ieraksts Kā atgūt Excel faila iepriekšējo versiju (4 vienkārši veidi)
Nākamais ieraksts Kā reizināt rindas programmā Excel (4 vienkāršākie veidi)

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.