پیدا کردن نام Printer های موجود
اگه برنامتون لازم داشت که نام تمام Printer های موجود رو بدونه (مثلاً print گرفتن با Printer دلخواه) از کد زیر استفاده کنین . بعداً کار با Printer رو کامل توضیح میدم ....
فقط دو object رو بسازین : Command1 و List1
Private Sub Command1_Click()
Set Printer = Printers(List1.ListIndex)
End Sub
Private Sub Form_Load()
For a = 0 To Printers.Count - 1
List1.AddItem Printers(a).DeviceName
Next a
End Sub
+ نوشته شده در ساعت توسط حسن سامی نسب
|
