systam
چهارشنبه 18 تیر 1393, 21:32 عصر
با عرض سلام به تمامی دوستان گلم
از عنوان پست مشخصه من میخوام زمانی که پرینت ارسال میشه به صف چاپ تعداد صفحات رو برای من نمایش
با این کد من پرینت های ارسالی رو انتخاب میکنم
Dim query As String = "SELECT * FROM Win32_PrintJob" Dim searchPrintJobs As ManagementObjectSearcher = New ManagementObjectSearcher(query) Dim jobs As ManagementObjectCollection = searchPrintJobs.Get
Dim int_count As Integer = jobs.Count
For Each job As ManagementObject In jobs
ListBox1.Items.Add(job.Properties("TotalPages").Va lue.ToString)
'Exit For
Timer1.Enabled = False
'job = Nothing
Next
و با یک حلقه For Each تمامی پرینت های صف چاب رو از قبیل نام فایل نام پرینتر تعداد صفحات میگیرم
ولی یه مشکل دارم اینه که کاربر شاید چند تا پرینت ارسال کنه چون از حلقه استفاده کردم هی تعداد صفحات رو برای من پشت سر هم لیست میکنه
چطوری میشه کاری کرد که کاربر 1 فایل ارسال کرد برای پرینت لیست کنه
این عکس رو نگاه کنید هی پشت سر هم یک فایل تعداد صفحات رو هی لیست میکنه چون از حلقه و یک تایمر استفاده کردم باید کاری کنم
برنامه رو ضمیمه کردم
دوستان ممنونم میشم راهنماییم کنید
یا علی
از عنوان پست مشخصه من میخوام زمانی که پرینت ارسال میشه به صف چاپ تعداد صفحات رو برای من نمایش
با این کد من پرینت های ارسالی رو انتخاب میکنم
Dim query As String = "SELECT * FROM Win32_PrintJob" Dim searchPrintJobs As ManagementObjectSearcher = New ManagementObjectSearcher(query) Dim jobs As ManagementObjectCollection = searchPrintJobs.Get
Dim int_count As Integer = jobs.Count
For Each job As ManagementObject In jobs
ListBox1.Items.Add(job.Properties("TotalPages").Va lue.ToString)
'Exit For
Timer1.Enabled = False
'job = Nothing
Next
و با یک حلقه For Each تمامی پرینت های صف چاب رو از قبیل نام فایل نام پرینتر تعداد صفحات میگیرم
ولی یه مشکل دارم اینه که کاربر شاید چند تا پرینت ارسال کنه چون از حلقه استفاده کردم هی تعداد صفحات رو برای من پشت سر هم لیست میکنه
چطوری میشه کاری کرد که کاربر 1 فایل ارسال کرد برای پرینت لیست کنه
این عکس رو نگاه کنید هی پشت سر هم یک فایل تعداد صفحات رو هی لیست میکنه چون از حلقه و یک تایمر استفاده کردم باید کاری کنم
برنامه رو ضمیمه کردم
دوستان ممنونم میشم راهنماییم کنید
یا علی