Код VBA выбор принтера

Private Sub Кнопка1_Click()
If Me.Группа2 = 1 Then
Application.Printer = Application.Printers("ZDesigner GK420t")
Else
Application.Printer = Application.Printers("HP LaserJet 1100 (MS)")
End If
End Sub

Private Sub Кнопка1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Группа2 = 1 Then
DoCmd.OpenReport "НаклейкиZEBRA", acViewPreview
DoCmd.Close acForm, Me.Name
Else
DoCmd.OpenReport "ОтчетHP", acViewPreview
DoCmd.Close acForm, Me.Name
End If
End Sub

DoCmd.OpenReport "НаклейкиZEBRA", acViewPreview
DoCmd.RunCommand acCmdZoom50
DoCmd.RunCommand acCmdPreviewTwelvePages

Private Sub Кнопка1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Группа2 = 1 Then
  DoCmd.OpenReport "НаклейкиZEBRA", acViewPreview
  DoCmd.Close acForm, Me.Name
Else
  DoCmd.OpenReport "ОтчетHP", acViewPreview
  DoCmd.Close acForm, Me.Name
End If
Reports(0).Printer = Application.Printer
End Sub

Private Sub cmdTest02_Click()
Dim prtDefault As Printer
 
    Set Application.Printer = Application.Printers(0)
 
    Set prtDefault = Application.Printer
 
    With prtDefault
     MsgBox "Device name: " & .DeviceName & vbCrLf _
     & "Driver name: " & .DriverName & vbCrLf _
     & "Port: " & .Port
    End With
End Sub