تنظیم 2 پرینتر

[saeedzx]

سلام

من میخواستم برنامه ای بنویسم که ازش چاپ بگیرم

حالا من اینجا 2 تا پرینتر دارم

می خوام تنظیم دستی کنم که موقع چاپ دیگه از من نپورسه که 2 تا پرینتر و باکدوم یکی میخوای چاپ بگیری

[mpmsoft]

جهت بدست آوردن چاپگرهای تعریف شده بروی سیستم



For Each Pr In Printers
Combo1.AddItem Pr.DeviceName
Next


جهت انتخاب چاپگر



Private Sub Combo1_Click()
On Error Resume Next
Dim prThis As Printer

If Printers.Count > 0 Then
For Each prThis In Printers
If prThis.DeviceName = Combo1.Text Then
Set Printer = prThis
Exit For
End If
Next prThis
End If
End Sub

[saeedzx]

تشکر فراوان

حالا 1 سوال دیگه من می خوام با دیتا ریپور چاپ بگیرم و نمی خوام موقع چاپ صفحه رو نمایش بده

[mpmsoft]

DataReport1.PrintReport False, rptRangeAllPages

[sohrab o]

من با datareport می خواستم پاپ کنم اما نتونستم چاپگرو انتخاب کنم

[sohrab o]

یه سورس توپی پیدا کردم