Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe Command Button gebruiken om een ​​actief werkblad op te slaan als PDF-bestand in Excel?

Tijdens het werken in Microsoft Excel kunt u het probleem ondervinden van het opslaan van een actief werkblad als PDF-bestand. In dit artikel kunt u leren hoe u een actief werkblad opslaat als PDF-bestand met VBA-code via een Command-knop. En als u ook een bereik of elk werkblad in een actieve werkmap als afzonderlijk PDF-bestand wilt opslaan, kan dit artikel u ook helpen.

Gebruik de Command-knop om een ​​actief werkblad op te slaan als PDF-bestand met VBA-code

Sla een bereik van geselecteerde cellen op als PDF-bestand met Kutools voor Excel

Sla elk werkblad op als afzonderlijk PDF-bestand van een actieve werkmap met Kutools voor Excel


Opslaan selectie eenvoudig als PDF-bestand in Excel:

Klik op Enterprise > Import / Export > Bereik exporteren naar bestand. De Kutools for Excel's Bereik exporteren naar bestand hulpprogramma helpt u bij het eenvoudig exporteren van selectie als PDF-bestand in Excel. Zie onderstaande screenshot:

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 30-dagen. Download de gratis proefversie nu

doc selectie naar pdf

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

Gebruik de Command-knop om een ​​actief werkblad op te slaan als PDF-bestand met VBA-code


U kunt de volgende VBA-code gebruiken om een ​​actief werkblad als PDF-bestand op te slaan door op een Command-knop te klikken. Doe het als volgt.

1. Allereerst moet u een map met de naam PDF maken om uw nieuwe geconverteerde PDF-bestand op te slaan. Hier maak ik deze map op mijn lokale schijf (C :).

2. Voer een opdrachtknop in door op te klikken ontwikkelaar > bijvoegsel > Commandoknop (ActiveX-besturingselement). Zie screenshot:

2. Teken vervolgens een Command-knop in het werkblad dat u nodig hebt om nieuwe rijen toe te voegen, klik met de rechtermuisknop op de Command-knop en klik WONINGAANBOD vanuit het rechtsklikmenu.

3. In de WONINGAANBOD dialoogvenster, voer de weergegeven tekst van de Command Button in in Onderschrift vak onder de Gecategoriseerd tab en sluit vervolgens het dialoogvenster.

U kunt zien dat de weergegeven tekst van de Command-knop wordt gewijzigd zoals hieronder afgebeeld.

4. Klik nogmaals met de rechtermuisknop op de opdrachtknop en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

5. In de opening Microsoft Visual Basic voor toepassingen venster, vervangt u de originele code in het codevenster met de volgende VBA-code.

VBA-code: Commandoknop om een ​​actief werkblad op te slaan als PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Notes: In de code is CommandButton1 de naam van de opdrachtknop die u wilt gebruiken om het actieve werkblad als PDF-bestand op te slaan. "C: \ PDF \ Export.pdf" is het pad en de naam van uw PDF-opslagbestand.

6. druk de anders + Q toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster. Schakel vervolgens de Ontwerpmodus onder de ontwikkelaar Tab.

Klik nu op de knop Opdrachten. Het actieve werkblad wordt opgeslagen als een PDF-bestand met de naam Exporteren en bevindt zich op de opgegeven locatie.


Sla een bereik van geselecteerde cellen op als PDF-bestand met Kutools voor Excel

Als u alleen een reeks geselecteerde cellen als een PDF-bestand wilt opslaan, kunt u het volgende proberen Bereik exporteren naar bestand nut van Kutools for Excel. Doe het als volgt.

1. Selecteer het bereik dat u wilt opslaan als PDF-bestand en klik vervolgens op Enterprise > Import / Export > Bereik exporteren naar bestand. Zie screenshot:

2. In de Bereik exporteren naar bestand dialoogvenster, moet u:

2.1 Selecteer de PDF optie in het gedeelte Bestandsformaat;

2.2 Geef een map op om uw PDF-bestand op te slaan in de Bewaar richting sectie;

2.3 Klik op de OK knop.

2.4 Geef uw PDF-bestand een naam in het tweede dialoogvenster Exportbereik naar bestand en klik vervolgens op OK knop. Zie screenshot:

Notes: U kunt elk van de formatteringsopmaak controleren, Rijhoogten behouden en Kolombreedten behouden in het gedeelte Werkmapopties naar behoefte. En u kunt het geëxporteerde PDF-bestand automatisch openen door de Open het bestand na exporteren doos.

Nu wordt het geselecteerde bereik opgeslagen als PDF-bestand.

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


Sla elk werkblad op als afzonderlijk PDF-bestand van een actieve werkmap met Kutools voor Excel

U kunt gebruik maken van de Werkboek splitsen nut van Kutools for Excel om elk werkblad in een actieve werkmap op te slaan als afzonderlijk PDF-bestand.

Kutools for Excel : met meer dan 300 handige Excel invoegtoepassingen, gratis om te proberen zonder beperking in 60-dagen.

1. In de werkmap moet u elk werkblad opslaan als afzonderlijk PDF-bestand en vervolgens klikken Enterprise > werkboek > Werkboek splitsen. Zie screenshot:

2. In de Werkboek splitsen dialoogvenster, kunt u zien dat alle werkbladen in de lijst staan, selecteer alstublieft PDF (* .pdf) optie van de Opslaan als type vervolgkeuzelijst en klik vervolgens op spleet knop. En in het opduiken Blader naar de map dialoogvenster, geef een map op waarin u de PDF-bestanden wilt opslaan en klik op de OK knop. Zie screenshot:

Vervolgens worden alle werkbladen in de actieve werkmap onmiddellijk als afzonderlijk PDF-bestand opgeslagen.

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


Demo: selectie opslaan of elk werkblad als PDF met Kutools voor Excel

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download de gratis proefversie nu!


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    atul tailor · 3 months ago
    plz paste coding for save as pdf button in microsoft excel
  • To post as a guest, your comment is unpublished.
    Nzee · 9 months ago
    IT SHOWS Run-Time error '1004'
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi Nzee,
      I need to know your Excel version. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Randy · 1 years ago
    I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
  • To post as a guest, your comment is unpublished.
    Jo Colenso · 1 years ago
    I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.

      Private Sub CommandButton1_Click()
      Dim xRg As Range
      Dim xName As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      xName = xRg(1).Value
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\PDF\" & xName & ".pdf", _
      OpenAfterPublish:=False
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ian · 2 years ago
    Hi,
    How would one allow the user to enter the file name as opposed to "Export.pdf"?
    Thanks,
    Ian
    • To post as a guest, your comment is unpublished.
      Mayur · 1 years ago
      Sub SaveAsPDF()
      Application.Screen Updating = False
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=Application.InputBox("Enter File Name")

      strExcelPath = "H:\My Documents"

      Application.ScreenUpdating = True
      End Sub