Private Function PrintInvoice(lngId As Long, strFileName As String)
Dim frm As New Form_Ф_QR_Платёжка_МАСС
frm.Filter = "[Код]=" & lngId
frm.FilterOn = True
DoEvents
frm.ForQRCode
DoCmd.OutputTo acOutputForm, frm.Name, acFormatPDF, strFileName, False
DoEvents
End Function

Private Sub Кн_Квит_МАСС_Click()
Dim strPath As String, strFileName As String
Me.RecordSource = Me.RecordSource

Const msoFileDialogFolderPicker& = 4
    If Me.Dirty Then Me.Dirty = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Выберите каталог для сохранения файлов PDF"
        .InitialFileName = CurDir
        If .Show Then
            strPath = .SelectedItems(1)
        End If
    End With
    If Len(Dir$(strPath, vbDirectory)) > 0 Then
        With Me.RecordsetClone
            Do Until .EOF
'                strFileName = strPath & "\" & [Код] & "_" & [ФИО] & ".pdf"
               strFileName = strPath & "\" & CStr(.Fields("Код")) & "_" & .Fields("ФИО") & ".pdf"
                Call PrintInvoice(.Fields("Код"), strFileName)
                .MoveNext
            Loop
        End With
    End If
End Sub