Vanuit VBA (Userform) automatisch PDF genereren

[erwin71]

Leden,

Ik zou graag vanuit een UserForm bij het klikken van een button automatisch een PDF willen genereren van 2 sheets.

Is dit mogelijk?

Voorlopig heb ik het volgende (Dit geeft enkel het printdialoog weer).

Sub tst()
Application.Dialogs(xlDialogPrint).Show
End Sub

Alvast bedankt!

Erwin

 

[edmoor]

Installeer de Bullzip PDF printer, dan kun je die in het dialoog selecteren:
http://www.bullzip.com/products/pdf/info.php

Of kijk eens naar deze oplossingen:
http://www.exp-systems.com/forum_exp/forum_posts.asp?TID=39

 

[Warme bakkertje]

Met welke XL-versie werk je ?

 

[erwin71]

Warme Bakkertje,

Ik werk met Microsoft Excel 2010..

 

[Warme bakkertje]

Hier kan je mee starten.

Sheets(Array("Sheet1", "Sheet2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\het volledig pad\bestandsnaam.pdf" _
        , Quality:=xlQualityStandard, OpenAfterPublish:=False

 

[erwin71]

Super, het werkt gewoon!

Nu slaat het wel op onder C:\Users\Erwin\Desktop\KostenBaten.pdf
Dit zal hooooogstwaarschijnlijk op een andere PC niet werken. Hoe moet ik dat ingeven, zodat het op elke PC werkt?

 

[Warme bakkertje]

Probeer het eens met deze

Sheets(Array("Sheet1", "Sheet2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CreateObject("Wscript.Shell").SpecialFolders(10) & "\" & "bestandsnaam.pdf" _
        , Quality:=xlQualityStandard, OpenAfterPublish:=False

 

[snb]

dat betwijfel ik:

Sub snb667()
Sheets("sheet1").ExportAsFixedFormat xlTypePDF, CreateObject("Wscript.Shell").specialfolders(16) & "\bestandsnaam.pdf"
Sheets("sheet2").ExportAsFixedFormat xlTypePDF, CreateObject("Wscript.Shell").specialfolders(16) & "\bestandsnaam2.pdf"
End Sub

Bij nader inzien klopt WB's suggestie toch:

Sub snb6()
    Sheets.Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, CreateObject("Wscript.Shell").specialfolders(16) & "bestandsnaam.pdf"
End Sub

 

[erwin71]

Beide oplossingen lukken toch wel, heb ze uitgeprobeerd!

Alleen is er in beide gevallen geen optie om indien er al een bestand KostenBaten.pdf bestaat dat er een KostenBaten2.pdf gegenereerd wordt bv.