systam
پنج شنبه 26 تیر 1393, 16:31 عصر
سلام
ابن برنامه ای که ضمیمه کردم فقط یک مشکل داره اگه فایلی برای پرینت به صف چاپ فرستاده شد بلافاصله برنامه اون فایل رو نام ، تعداد صفحاتش ، سایزش ، و تاریخ ارسال فایل رو برای در یک
لیست ویو نمایش میده
ولی روی چندتا سیستم چک کردم شاید 2 الی 3 پرینت اولیه رو درست نمایش میده بقیه رو اطلاعات رو اشتباه نمایش میده
کد برنامه
System.Management.ObjectQuery oq = new System.Management.ObjectQuery("SELECT * FROM Win32_PrintJob");
ManagementObjectSearcher query1 = new ManagementObjectSearcher(oq);
ManagementObjectCollection queryCollection1 = query1.Get;
foreach (ManagementObject mo in queryCollection1) {
Label1.Text = (" F\'E ~1�F*1: " + mo("DriverName").ToString);
Label2.Text = ("F\'E 3F/ : " + mo("Document").ToString);
Label3.Text = ("*9/\'/ �D 3F/ : " + mo("TotalPages").ToString);
ListBox1.Items.Add(mo("TotalPages"));
Timer1.Enabled = false;
}
[VB] 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").Value.ToString)
'Exit For
Timer1.Enabled = False
'job = Nothing
ممنونمیشم راهنماییم کنید
یا علی
ابن برنامه ای که ضمیمه کردم فقط یک مشکل داره اگه فایلی برای پرینت به صف چاپ فرستاده شد بلافاصله برنامه اون فایل رو نام ، تعداد صفحاتش ، سایزش ، و تاریخ ارسال فایل رو برای در یک
لیست ویو نمایش میده
ولی روی چندتا سیستم چک کردم شاید 2 الی 3 پرینت اولیه رو درست نمایش میده بقیه رو اطلاعات رو اشتباه نمایش میده
کد برنامه
System.Management.ObjectQuery oq = new System.Management.ObjectQuery("SELECT * FROM Win32_PrintJob");
ManagementObjectSearcher query1 = new ManagementObjectSearcher(oq);
ManagementObjectCollection queryCollection1 = query1.Get;
foreach (ManagementObject mo in queryCollection1) {
Label1.Text = (" F\'E ~1�F*1: " + mo("DriverName").ToString);
Label2.Text = ("F\'E 3F/ : " + mo("Document").ToString);
Label3.Text = ("*9/\'/ �D 3F/ : " + mo("TotalPages").ToString);
ListBox1.Items.Add(mo("TotalPages"));
Timer1.Enabled = false;
}
[VB] 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").Value.ToString)
'Exit For
Timer1.Enabled = False
'job = Nothing
ممنونمیشم راهنماییم کنید
یا علی