Excel opslagen in een map met een unieke nummer

[Noord2011]

Het is mij gelukt om naar pdf te printen. verder heb ik een andere vraag.
Hoe kan ik in het VBA code mijn geprinte PDF-Factuur naar een Map opslagen Bijv. C:/ backup PDF en het opgeslagen PDF het naam geven die staat in excel cel G3.

Wiek kan mij helpen?

Zie bijlage

Mv/Gr

 

[Roncancio]

    ActiveWorkbook.SaveAs "C:\backup PDF\" & Range("G3").Value & ".xls"

Met vriendelijke groet,


Roncancio

 

[wiki]

Beste noord25

het is wel zo vriendelijk om de andere post dan op opgelost te zetten en de oplossing te delen.

gr wim

 

[Noord2011]

Bedankt het probleem is opgelost.:thumb:
Nu kan ik als PDF printen in mijn eigen map en met een unike nummer.

Zie excel doc

Mv/Gr

 

[wiki]

Tanx Noord25 :thumb: werkt perfect

gr Wim

 

[djpeterl1]

als ik het excel document open zie ik geen macro's.../...oplossing...

of ligt dat aan mij??

 

[Wigi]

of ligt dat aan mij??

Ja.

Sheet1 staat vol code:

Option Explicit
Private Sub CommandButton2_Click()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
'   (Download from http://sourceforge.net/projects/pdfcreator/)
'   Designed for late bind, no references req'd

    Dim pdfjob As Object
    Dim sPDFName As String
    Dim sPDFPath As String
    
    Range("G3") = Range("G3") + 1
    
    '/// Change the output file name here! ///
    sPDFName = Range("G3").Value & ".xls"
    '"testPDF.pdf"
    sPDFPath = "C:\Factuur "
    'ActiveWorkbook.Path & Application.PathSeparator

    'Check if worksheet is empty and exit if so
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    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

    '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
End Sub

Wigi

 

[djpeterl1]

krijg onder staande foutmelding:

Can't initialize PDFCreator.

heb pdfcrea. ook al opnieuw geinstalleerd.

wat gaat er mis??

 

[huijb]

@Pitie Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers.

 

[Pitie]

@Pitie Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers.

Mijn excuses ik heb nog nooit met een forum gewerkt. Bedankt voor de tip.

gr pitie