طباعة اختيار طابعة افتراضية من قائمة قبل الطباعة

[ابوخليل]

العنوان  لا يحتاج الى زيادة شرح او تفصيل

في المرفقات مثال فريد  لتحقيق المطلوب

 

فريد : لاعتماده على جملة برمجية صغيرة ، بعيدا عن الوحدات النمطية المطولة

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long
Private Sub Form_Open(Cancel As Integer)
Dim Prn As Printer
For Each Prn In Application.Printers
PrinterList.AddItem Prn.DeviceName
Next Prn
End Sub


Private Sub PrinterList_DblClick(Cancel As Integer)
SetDefaultPrinter (PrinterList)
DoCmd.Close acForm, Me.Name
End Sub

اختيار الطابعة الافتراضية من قائمة.rar

[أبا عمر]

جزاك _الله_ أستاذي الكريم
أحسن _الله_ إليك وغفر لك ولوالديك ومن تحب ومن تخصهم بالدعاء

[علي المصري]

جزاك الله خير ابا خليل