#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
    
    Private Declare PtrSafe Function GetBitmapImage Lib "quricol32.dll" Alias "GetHBitmapW" ( _

#Else
    Private Const LIBRARY_NAME$ = "quricol32.dll"
    
    Private Declare Function GetBitmapImage Lib "quricol32.dll" Alias "GetHBitmapW" ( _

Option Compare Database
Option Explicit

Private m_colForms As New VBA.Collection
Private Function PrintInvoice(lngId As Long, strFileName As String)
Dim frm As New Form_КВ
frm.Filter = "[счетНар]=" & lngId
frm.FilterOn = True
DoEvents
frm.ForQRCode
DoCmd.OutputTo acOutputForm, frm.Name, acFormatPDF, strFileName, False
DoEvents
End Function

Private Sub cmdPrintAllInvoices_Click()
Dim strPath As String, strFileName As String
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 & "\" & CStr(.Fields("счетНар")) & _
                .Fields("НарФ") & Left(Trim(Nz(.Fields("НарИ"), "")), 1) & Left(Trim(Nz(.Fields("НарО"), "")), 1) & _
                Format(Now(), "\_yyyymmddhhnnss\.\p\d\f")
                
                Call PrintInvoice(.Fields("счетНар"), strFileName)

                .MoveNext
            Loop
        End With
    End If
End Sub

Private Sub cmdPrintCurrInvoice_Click()
Dim strFileName As String
Const msoFileDialogSaveAs& = 2
    If Me.NewRecord Then Exit Sub
    If Me.Dirty Then Me.Dirty = False
    
strFileName = CurDir & "\" & CStr(Me.счетНар) & _
                Me.НарФ & Left(Trim(Nz(Me.НарИ, "")), 1) & Left(Trim(Nz(Me.НарО, "")), 1) & _
                Format(Now(), "\_yyyymmddhhnnss\.\p\d\f")
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .InitialFileName = strFileName
        If .Show Then
            strFileName = .SelectedItems(1)
        End If
    End With
Call PrintInvoice(Me.счетНар, strFileName)
End Sub

Private Sub кнКвит_Click()
Dim frm As Form

Set frm = New Form_КВ
 
frm.Filter = "[счетНар]=" & Me.счетНар
frm.FilterOn = True
frm.ForQRCode
m_colForms.Add frm
frm.Visible = True
End Sub

Option Compare Database
Option Explicit

Private m_colForms As New VBA.Collection
Private Function PrintInvoice(lngId As Long, strFileName As String)
Dim frm As New Form_Ф_QR_Платёжка_МАСС
DoEvents
frm.ForQRCode
DoCmd.OutputTo acOutputForm, frm.Name, acFormatPDF, strFileName, False
DoEvents
End Function
Private Sub cmdPrintAllInvoices_Click()
Dim strPath As String, strFileName As String
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([Код] & "_" & [ФИО] & ".pdf"))

'               strFileName = strPath & "\" & CStr(.Fields("Код")) & _
                .Fields("ФИО") & Format(Now(), "\_yyyymmddhhnnss\.\p\d\f")

'               strFileName = strPath & "\" & CStr(.Fields("Код")) & _
                .Fields("Код") & Format(Now(), "\_yyyymmddhhnnss\.\p\d\f")

                Call PrintInvoice(.Fields("Код"), strFileName)
             .MoveNext
            Loop
        End With
    End If
End Sub

' Эта ветка тоже не захотела работать, использовал свою написанную ранее.
'Может это как то связано
Private Sub cmdPrintCurrInvoice_Click()
Dim strFileName As String
Const msoFileDialogSaveAs& = 2
    If Me.NewRecord Then Exit Sub
    If Me.Dirty Then Me.Dirty = False
   
strFileName = CurDir & "\" & [Код] & "_" & [ФИО] & ".pdf"
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .InitialFileName = strFileName
        If .Show Then
           strFileName = .SelectedItems(1)
        End If
    End With
  Call Pri
 
'Ругается когда поменял "счетНар" на "Код", ну принципе она и не должна была работать с этим именем, но 
'"Код" это вообщем-то полный аналог, также ключ, также счётчик, так же число, чего ему надо не пойму. 
'К тому же "счетНар" это не имя поля, а имя столбца таблицы.
'А такой вот вопрос Акцесс 2007 знает оператор  ntInvoice(), потому как выделяет то он всю строчку

ntInvoice(Me.Код, strFileName)
End Sub

Private Sub кнКвит_Click()
Dim frm As Form
Set frm = New Form_Ф_QR_Платёжка
frm.ForQRCode
m_colForms.Add frm
frm.Visible = True
End Sub

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