شناسایی و انتخاب چاپگر

[saeedzx]

با عرض سلام و خسته نباشید


من دونبال سورسی هستم اول اینکه شناسایی کنه چند تا پرینتر رو سیستم می باشد و بعد چاپ رو انتخاب کنه کدام پرینتر انجام بده

و سورسی که بشه چاپ رو با پرینتر های کوچک از این حرارتی ها انجام بده


با تشکر:چشمک:

[ehsanocx]

از دستور و کامپونت comman Dialog استفاده کن

commanDialog.Printer

[kimprog]

كد زير اسامي چاپگر ها در يك listview قرار مي دهد



Dim X As Printer
For Each X In Printers
Set itmx = ListView1.ListItems.Add(, , X.DeviceName)
Next

بعد از انتخاب ميتوانيد از حلقه اي مشابه كد فوق چاپگر مورد نظر را فعال كنيد



Dim X As Printer
For Each X In Printers
If X.DeviceName = ListView1.SelectedItem.Text Then
Set Printer = X
End If
Next

[saeedzx]

تشکر میکنم از دوستان محترم

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