Save as PDF

[Roadrocker66]

Hallo allemaal.

Ik heb een vraag.
Ik een in Excel een Invoice gemaakt met een VBA code in een save as button
Als ik de invoice (bijvoorbeeld Invoice1.PDF) als PDF opsla gaat dit prima en wordt deze als invoice met nummer1.PDF opgeslagen!
Maar hoe kan ik nu voor zorgen dat de volgende invoice die ik maak zo opgeslagen wordt dat deze niet invoice1.PDF overschrijft maar wel als PDF met invoicenummer2.
Zou graag weten hoe ik die code moet schrijven.

Zal een excel bestandje toevoegen en de code die ik heb gemaakt!

Alvast hartelijk bedankt!

Bekijk bijlage Map1.xlsm

De macro module:

Option Explicit

Sub SaveInvoiceSheetAsPDF()
        
    Blad1.Range("a1:m65").ExportAsFixedFormat xlTypePDF, Environ("UserProfile") & "\Documents\Invoice" & Range("b28").Value & ".pdf"
        MsgBox "Your Invoice hase been saved successfully!", vbInformation, "User Info"
    
End Sub

Met vriendelijke groet,
Jeen

 

[gober]

Als voorbeeld zelfde idee. Ieder factuur wordt opgeslagen onder een ander nummer Bekijk bijlage Faktuur-template test met urenregistratie.xlsb

 

[Roadrocker66]

Ziet er goed uit.

Zal hem morgen nog eens wat beter bestuderen.
Heel erg bedankt.
Zal ik zeker verder mee komen.

 

[maomanna]

ik gebruik dit om een word document op te slaan na een commandbutton.

If ActiveDocument.FullName <> "" Then

ActiveDocument.SaveAs2

'
'Silent Save_to_PDF Macro
'
        docPDF = "H:\Naam bestand " & Me.txtwnnaam & ".pdf"
    ActiveDocument.ExportAsFixedFormat OutputFileName:=docPDF, _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
    wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
    
    End If

 

[arnoo7]

Ik weet niet of het is wat je bedoeld. Maar normaal verhoog je de factuurnummer. Dus in B28 van een 1 een 2 maken. Dan slaat hij hem op als invoice2.

Dat kun je ook automatisch doen door een tellertje mee te laten lopen in B28

[B28] = [B28] + 1

of

Range("B28").Value = Range("B28").Value + 1

onderin je code te zetten. Mocht je een fout maken en hij nummert te snel op moet je wel B28 terugzetten naar het juiste nummer

 

[Roadrocker66]

Nog niet opgelost!
Kom er maar niet uit.

 

[HSV]

Zoiets zal je moeten toepassen.

Sub SaveInvoiceSheetAsPDF()
   with Blad1
      .Range("a1:m65").ExportAsFixedFormat xlTypePDF, Environ("UserProfile") & "\Documents\Invoice" & .Range("b28").Value & ".pdf"
        MsgBox "Your Invoice hase been saved successfully!", vbInformation, "User Info"
      .range("b28") = .range("b28").value + 1
    end with
End Sub

 

[Roadrocker66]

Ziet er veel belovend uit.
Vanavond zal ik hem eens uitproberen.
Dank je wel.