Public Function CreateAttachments(PS_report_name As String, PS_PDFreport_name As String, PS_Criteria As String, PS_type As String) As String

Dim objPDFCreator
Dim DefaultPrinter      As String
Dim c                   As Long
Dim OutputFilename      As String
Dim LS_Path             As String
Dim LI_counter          As Integer          'JFL 2008-06-25
Dim LI_REPEATING_LIMIT  As Integer          'JFL 2008-06-26


LS_Path = "C:\Temp\"
LI_counter = 0
LI_REPEATING_LIMIT = 3
If Trim(PS_PDFreport_name = "") Then PS_PDFreport_name = PS_report_name

Recall:                                                                 'JFL 2008-03-04
    Set objPDFCreator = CreateObject("PDFCreator.clsPDFCreator")
    
    'set PDFCreator
    With objPDFCreator
        .cStart "/NoProcessingAtStartup"
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = LS_Path
        .cOption("AutosaveFilename") = PS_PDFreport_name
        .cOption("AutosaveFormat") = 0                            ' 0 = PDF
        DefaultPrinter = .cDefaultPrinter
        .cDefaultPrinter = "PDFCreator"
        .cClearCache
        If .cDefaultPrinter = "PDFCreator" Then                     'JFL 2008-02-25
            'If Application.Printer.DeviceName = "PDFCreator" Then
                DoCmd.OpenReport PS_report_name, acNormal, , PS_Criteria
            'End If
        Else
            objPDFCreator.cClose                                        'JFL 2008-03-04
            Set objPDFCreator = Nothing                                 'JFL 2008-03-04
            GoTo Recall                                                 'JFL 2008-03-04
        End If
        .cPrinterStop = False
    End With

    'waiting
    c = 0
        Do While (objPDFCreator.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
            c = c + 1
            Sleep 200
        Loop

    OutputFilename = objPDFCreator.cOutputFilename

    'before closing PDFCreator wait for finished printing
    Dim LI_result           As Integer
    Do Until objPDFCreator.cCountOfPrintjobs = 0
        LI_result = DoEvents
    Loop

    'default printer set back
    With objPDFCreator
        .cDefaultPrinter = DefaultPrinter
        Sleep 200
        .cClose
    End With

    'wait until PDFCreator is removed from memory
    Sleep 2000

    'control about output file name
    If OutputFilename = "" Then
        If LI_counter > LI_REPEATING_LIMIT Then
            Call InsertInformationToSQL(DLookup("[inv_id]", "[RE_S_PAY_edit_bank_transfer2]", PS_Criteria), 1, Now(), PS_type & "Error: Time is up ! <" & LI_counter & ">")        'JFL 2007-12-11
            CreateAttachments = ""
        Else
            LI_counter = LI_counter + 1
            Set objPDFCreator = Nothing
            GoTo Recall
        End If
    Else
        CreateAttachments = LS_Path & PS_PDFreport_name & ".pdf"
    End If
    
    Set objPDFCreator = Nothing

    If Not ExistFile(LS_Path & PS_PDFreport_name & ".pdf") Then
        If LI_counter > LI_REPEATING_LIMIT + 1 Then
            Set objPDFCreator = Nothing
            CreateAttachments = "ERR"
            Call InsertInformationToSQL(DLookup("[inv_id]", "[RE_S_PAY_edit_bank_transfer2]", PS_Criteria), 1, Now(), PS_type & "Error: The file does not exist! <" & LI_counter & ">")
            MsgBox "[MO_SEM_Send_email][CreateAttachments] Chyba pri vytv&#225;&#248;en&#237; pdf dokumentu - Soubor nevytvo&#248;en !", vbExclamation, "Soubor neexistuje"
            Exit Function
        Else
            LI_counter = LI_counter + 1
            Set objPDFCreator = Nothing
            Call killProcess("PDFCreator.exe")
            GoTo Recall
        End If
    Else
        If Not FileValidation(PS_report_name, PS_PDFreport_name, LS_Path) Then
            If LI_counter > LI_REPEATING_LIMIT + 1 Then
                CreateAttachments = "ERR"
                Call InsertInformationToSQL(DLookup("[inv_id]", "[RE_S_PAY_edit_bank_transfer2]", PS_Criteria), 1, Now(), PS_type & "Error: The file contains wrong report! <" & LI_counter & ">")        'JFL 2007-06-26
                Exit Function
            Else
                LI_counter = LI_counter + 1
                Set objPDFCreator = Nothing
                GoTo Recall
            End If
        End If
    End If

Exit Function

errorMessage:
    MsgBox Err.Description & " / " & Err.Number, vbInformation
    
    'set default printer to origin value
    If objPDFCreator.cDefaultPrinter = "PDFCreator" And Trim(DefaultPrinter) <> "" Then
        With objPDFCreator
            .cDefaultPrinter = DefaultPrinter
            Sleep 200
            .cClose
        End With
    End If
    
    Set objPDFCreator = Nothing
    
    CreateAttachments = "ERR"
    MsgBox "chyba pri odesl&#225;n&#237; emailu - CreateAttachment()", vbInformation

End Function