[mhareek]

احبابى فى الله اريد  كود

  الطباعة مباشر من الطابعة الافتراضية
وايضا كود الطباعة من    Microsoft print to pdf
وايضا     Microsoft xps document writer
اريد كود الطباعة المباشرة   من هذة الاختيارت جزاكم الله خير


هذة الاختيارات بتكون موجودة فى الطباعة عندما نضغط طباعة تفتح لست فيها اسماء الطابعات ثم نختار واحدة منهم للطباعة   ان اريد طباعة مباشرة بدون ان اختار اخى الغالى



لكل نوع زر 

بحيث زر  طباعة وررد
زر طباعة بى دى اف
زر طباعة مباشر من الطابعة الافتراضية


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

[aenisVB]

السلام عليكم أول شيئ طلع كل الطابعات :
   Dim p As Printer
   
   For Each p In Printers
    List1.AddItem p.DeviceName
   Next
For i = 0 To List1.ListCount - 1
 If List1.list(i) = Printer.DeviceName Then
  List1.ListIndex = i
  Exit Sub
 End If
Next
الباقي عليك ربط كل زر مع الطابعة