Macro: 1 PDF afdruk maken van verschillende werkbladen uit verschillende werkmappen

[JKoolen]

Hallo allemaal,

Allereerst bedankt voor dit mooie forum, ik heb er al veel aan gehad.

Ik heb toch nog een vraag waar ik geen antwoord op heb kunnen vinden. Al komt deze in de buurt. Maar ik heb nog geen ervaring met Macro's dus kan er niet echt mee uit de voeten.

Ik wil een knop hebben, en als ik op die knop druk, wil ik dat er automatisch een .PDF wordt gemaakt. Deze .PDF moet bestaan uit werkbladen, die uit twee verschillende werkmappen komen. Een van die werkmappen is dus niet geopend als de print wordt gemaakt.

Ik werk met Excel 2003, een Nederlandse versie. Helaas heb ik hier zelf geen keus in te maken . Verder heb ik CutePDF Writer.

Als jullie kunnen helpen, hoor ik het graag. Alvast hartelijk bedankt.

Joris

 

[JKoolen]

wederom hallo,

Is er niemand die hier mee kan helpen? Nogmaals alvast bedankt voor uw antwoord.

Vriendelijke groet,

Joris

 

[marcsken]

opslaan als PDF

Joris,
het is niet direkt zoals je vraagt maar wie weet kan je van hieruit verder
met deze macro sla ik tabbladen op als pdf

Bekijk bijlage waterPDF.xlsm

 

[JKoolen]

Beste marcsken,

Bedankt voor je antwoord!

Je laat hem in de macro alleen werkblad 'water' exporteren.Is het makkelijk om hier andere tabbladen aan toe te voegen om deze mee te laten exporteren?

en helaas werkt de functionaliteit die je gebruikt bij ons niet: mijn Excel 2003 kan niet exporteren naar PDF, dus wij doen dit met CutePDF writer.

Met vriendelijke groet,

Joris

 

[robdgr]

Joris,

Deze zoektocht levert je wellicht het juiste antwoord.

 

[Veritas1985]

Mocht het niet lukken, download gratis pdf creator en gebruik deze code:

Sub savepdf()
Sheet1.Select

    Dim pdfjob As Object
    Dim sPDFName As String
    Dim sPDFPath As String

    'Check if worksheet is empty and exit if so
   On Error GoTo Earlyexit





    If Range("F57").Value = 0 Then Exit Sub
    
    '/// Verander bestandsnaam hier! ///
    sPDFName = Range("F13").Value & ".xls"
    sPDFPath = ActiveWorkbook.Path & "\OUT\" & Range("F14").Value & "\"


    'turn off screen updates
    Application.ScreenUpdating = False
     Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")



 With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + _
                vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With



    'End sub if the PDF if it already exists
    If Dir(sPDFPath & sPDFName) = sPDFName Then Exit Sub

    'Print the document to PDF
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False

  'Wait until PDF creator is finished then release the objects
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing

Earlyexit: Exit Sub

End Sub