بدست آوردن تعداد پرینت

[Mask]

با سلام
می خاستم بدونم چطوری باید تعدا پرینت یه سیستم رو بدست بیارم.
ممنون.

[AliReza Vafakhah]

یونیت Printers رو uses کن


procedure TForm1.Button1Click(Sender: TObject);
var
P:TPrinter;
begin
try
P:=TPrinter.Create;
ShowMessage(IntToStr(P.Printers.Count));
finally
FreeAndNil(P)
end;
end;

[Felony]

یونیت Printers رو uses کن


procedure TForm1.Button1Click(Sender: TObject);
var
P:TPrinter;
begin
try
P:=TPrinter.Create;
ShowMessage(IntToStr(P.Printers.Count));
finally
FreeAndNil(P)
end;
end;
کدی که شما نوشتید تعداد پرینتر های یک سیستم رو برمیگردونه نه تعداد پرینت . ( فکر میکنم منظور دوستمون تعداد صفحات در حال پرینت بوده )

[Mask]

ممنون از آقای علیرضای عزیز
دقیقا منظورم همینه که آقای silversoft فرمودند.
من تعداد برگه پرینت شده رو می خام.
از دوستان اگه ممکنه راهنمایی کنند.
فقط آقا مجتبی.
ممنون.

[mossaferin]

سلام
من قبلا یه تاپیک برات گذاشته بودم که ظاهرا بدردت نخورده ، با اون کد میتونی از زمانیکه اجرا شده تعداد صفحات پرینت شده رو بدست بیاری ، نمیدونم مشکلت با اون کد چیه ، چون من خودم استفاده کردم

[Mask]

سلام
من قبلا یه تاپیک برات گذاشته بودم که ظاهرا بدردت نخورده ، با اون کد میتونی از زمانیکه اجرا شده تعداد صفحات پرینت شده رو بدست بیاری ، نمیدونم مشکلت با اون کد چیه ، چون من خودم استفاده کردم

ممنون دوست خوبم -زحمت کشیدید
اما اون برنامه داخل ممو کلی تکست بر می گردونه که کاربر قاطی می کنه.
من کار خاصی نمی خام انجام بدم. فقط وقتی کاربر میره برا پرینت تعداد صفخش رو برام برگردونه . همین.
بقیه اطلاعات زیادیه و من قاطی می کنم.
چطوری فقط تعداد برگه پرینت شده رو بدست بیارم؟

[mossaferin]

سلام

اون فقط یه مثاله
همونطور که توی اون کد دیدید


' - total Pages: '+IntToStr( PTrabajo^[i].TotalPages )+ ' - copies : '+inttostr(PTrabajo^[i].pDevMode^.dmCopies)


می تونید تعداد صفحات پرینت شده رو استخراج کنید

موفق باشی