Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long
Private Sub Command1_Click()
Dim Prt As Printer
Dim Def_PrinterName As String
'تخزين إسم الطابعة الحالية في هذا المتغير
Def_PrinterName = Printer.DeviceName
DoEvents
For Each Prt In Printers
If Prt.DeviceName = "EPSON LQ-300+II ESC/P2" Or Prt.DeviceName = "Canon MF4320-4350" Then
SetDefaultPrinter Prt.DeviceName
DoEvents
DataReport1.PrintReport False
DoEvents
End If