• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verwijzing klopt niet

Status
Niet open voor verdere reacties.
stefano

stefano

Gebruiker
Lid geworden
22 mei 2004
Berichten
865
In een poging om een pdf vanuit excel te zenden wou ik de bestandsnaam dynamisch maken.

Werkende code:

Code: 
FileName = RDB_Create_PDF(Source:=ActiveSheet, _
                              FixedFilePathName:="C:\Kraft.pdf", _
                              OverwriteIfFileExist:=True, _
                              OpenPDFAfterPublish:=False)

Waarin ik het rode deel aangepast heb:

Code: 
FileName = RDB_Create_PDF(Source:=ActiveSheet, _
                              FixedFilePathName:=[COLOR="#FF0000"]"C:\" & "Kraft.pdf"[/COLOR], _
                              OverwriteIfFileExist:=True, _
                              OpenPDFAfterPublish:=False)

Waarom werkt dit niet ?

groeten,

Stefano
 
Weinig aan te zien zo. Krijg je er een foutmelding op?
 
Ik krijg de foutmelding zoals ron de bruin ze voorzag.

Code: 
Sub RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail()
    Dim FileName As String

    If ActiveWindow.SelectedSheets.Count > 1 Then
        MsgBox "There is more then one sheet selected," & vbNewLine & _
               "be aware that every selected sheet will be published"
    End If

    'Call the function with the correct arguments
    'Tip: You can also use Sheets("YourSheetName") instead of ActiveSheet in the code(sheet not have to be active then)

    FileName = RDB_Create_PDF(Source:=ActiveSheet, _
                              FixedFilePathName:="C:\" & "Kraft.pdf", _
                              OverwriteIfFileExist:=True, _
                              OpenPDFAfterPublish:=False)

    'For a fixed file name use this in the FixedFilePathName argument
    'FixedFilePathName:="C:\Users\Ron\Test\YourPdfFile.pdf"


    If FileName <> "" Then
        RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
                             StrTo:="ronseweg@hotmail.com;stefaan.raman1@telenet.be", _
                             StrCC:="", _
                             StrBCC:="", _
                             StrSubject:="Certificaat bloem Kraft", _
                             Signature:=True, _
                             Send:=False, _
                             StrBody:="<H3><B>Beste</B></H3><br>" & _
                                      "<body>In bijlage een analysecertificaat." & _
                                      "<br><br>" & "vriendelijke groeten</body>" & _
                                      "<br><br>" & "R&D Deinze</body>"
    Else
     [B]   MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
               "Microsoft Add-in is not installed" & vbNewLine & _
               "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
               "The path to Save the file in arg 2 is not correct" & vbNewLine & _
               "You didn't want to overwrite the existing PDF if it exist"
[/B]    End If
End Sub
 
Gebruik eens niet "C:\" maar bijvoorbeeld "C:\PDF".
Maak in C:\ dus een map aan met de naam PDF.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan