PDF Creator VBA (1 Viewer)

Private Sub cmdafdrtoetsN1_Click()
On Error GoTo Err_cmdafdrtoetsN1_Click
    
    Dim prt As Printer
    Dim i As Long
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim strNaam As String
    Dim strSubPad As String
    Dim strPad As String
    Dim strRapport As String
    Set db = CurrentDb
    Set rst = db.OpenRecordset("contact", dbOpenDynaset)
    strRapport = "raptoetsingN1"
    Set prt = Application.Printer
    Application.Printer = Printers("PDFCreator")
    'patch which will be used to save the .pfd    
    '(Folder current database)
    'strPad = CurrentProject.Path
    PDF_Start
    strNaam = rst!opdrachtnr
    strSubPad = Left(strNaam, 2)
    strPad = "G:\" & strSubPad & "\" & strNaam & "\" & "Acrobat\"
    strNaam = "LS_Asfalt_Toetsing_(N1)" & strNaam
            If AfdrukkenRapport(strRapport, strNaam, strPad) = 1 Then
            rst.MoveNext
        Else
        End If
    PDF_Stop
    Application.Printer = prt
    DoCmd.OpenReport strRapport, acViewNormal
Exit_cmdafdrtoetsN1_Click:
    Exit Sub
Err_cmdafdrtoetsN1_Click:
    MsgBox "Fout: " & Err.Number & vbNewLine & Err.Description, vbExclamation, "cmdafdrtoetsN1_Click"
    Resume Exit_cmdafdrtoetsN1_Click
End Sub