السلام عليكم احبابى فى الله بالنسبة لامر الطباعة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : السلام عليكم احبابى فى الله بالنسبة لامر الطباعة (/showthread.php?tid=35788)

السلام عليكم احبابى فى الله بالنسبة لامر الطباعة - mhareek - 22-07-20 احبابى فى الله اريد  كود   الطباعة مباشر من الطابعة الافتراضية وايضا كود الطباعة من    Microsoft print to pdf وايضا     Microsoft xps document writer اريد كود الطباعة المباشرة   من هذة الاختيارت جزاكم الله خير هذة الاختيارات بتكون موجودة فى الطباعة عندما نضغط طباعة تفتح لست فيها اسماء الطابعات ثم نختار واحدة منهم للطباعة   ان اريد طباعة مباشرة بدون ان اختار اخى الغالى لكل نوع زر  بحيث زر  طباعة وررد زر طباعة بى دى اف زر طباعة مباشر من الطابعة الافتراضية جزاكم الله خيرا RE: السلام عليكم احبابى فى الله بالنسبة لامر الطباعة - aenisVB - 30-07-20 السلام عليكم أول شيئ طلع كل الطابعات :    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 الباقي عليك ربط كل زر مع الطابعة