Faktura Nr? ud fra en txt fil, samt hvordan gemme rapport som pdf fil

Fakturanummer = Nz(DMax("Fakturanummer", "Faktura"), 0) + 1

    Const ReportName    As String = "Faktura"
    Const FileNameMask  As String = "Faktura{0}.pdf"
    
    Dim Path            As String
    Dim FileName        As String
    Dim FileId          As String
    Dim FullPath        As String
    
    ' Bruges i fakturaens forespøgsel til at filtrere denne til ét fakturaID.
    TempVars("FakturaID").Value = Me!FakturaID.Value
    
    Path = Environ("USERPROFILE") & "\Documents\"
    FileId = Str(Me!Faktura.Value)
    FileName = Replace(FileNameMask, "{0}", FileId)
    FullPath = Path & FileName
    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF, FullPath, False, , , acExportQualityPrint