برای اینکار باید از شیء printer در Visual Basic استفاده نمائید.
اشیائی نظیر printer و یا clipboard و یا app و ... به برنامه نویس برای دستیابی هرچه بیشتر به منابع خروجی کدها کمک بزرگی میکنند.
برای پیدا کردن هر چیزی در ویژوال بیسیک باید به شیء مادر اون متصل شد و با استفاده از شگردهای برنامه نویسی اطلاعات رو از مادر ، استخراج کرد.
مادر ِ پرینتر در اینجا شیء Printers میباشد. که حاوی تمامی اطلاعات در مورد پرینترهای منتصل و نحوه عملکرد هرکدام میباشد.
من یه مثال میزنم بعد خط به خط در مورد اون توضیح میدم تا بهت بفهمید :
Private Sub Form_Load()
Dim a As Printer
For Each a In Printers
List1.AddItem (a.DeviceName)
Next
End Sub
یک Listbox به فرم خودتون اضافه کنید.
و کد بالا رو در form در روال load وارد کنید.
توضیح :
در مرحله اول یک متغیر از نوع پرینتر یا variant تعریف میکنید.
تمامی اطلاعات پرینترها قراره داخل این متغیر قرار بگیره.
چرخه For Each.. Next در شیء Printers به تعداد کل اشیاء چرخش میکنه. یعنی به تعداد کل مثلا پرینترهائی که شیء پرینتر داخل خودش داره.
و همینطور که فهمیدید. در هر لحظه متغیر a شامل اطلاعات یک پرینتر میباشد.
وقتی متغیر a حاوی اینهمه اطلاعات میشه. میتوانید به راحتی از اون اطلاعات بگیرید.
یه نمونش خصوصیت DeviceName هستش که یک رشته از نام پرینتر مورد نظر رو بر میگردونه و میبینید که کد مربوطه در هر لحظه این اسم رو دریافت و به listbox برنامه منتقل میکنه.
یک پروژه VB6 باز کنید و عملکرد اونو امتحان کنید.
موفق باشید ...
/