10-03-13, 04:24 PM
11-03-13, 12:26 AM
السلام عليكم
- إستخدم الطريقة كما في هذا الكود :
- تحياتي .
- إستخدم الطريقة كما في هذا الكود :
كود :
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
Next
'إستعادة الطابعة الإفتراضية
SetDefaultPrinter Def_PrinterName
DoEvents
End Sub- تحياتي .