و دوباره پرینت تصاویر .....

[alireza_63]

سلام

برای اینکه در هنگام زدن کلیدی به جهت پرینت یک تصویر و رویت پنجره تنظیم پرینتر ،‌ بعد از اینکه کاربر روی Cancel کلیک کرد ،‌عمل چاپ صورت نگیرد ، چه باید کرد ؟؟؟

گفتنی است که با کد زیر ، پنجره تنظیمات پرینتر ظاهر میشود ولی با Cancel کردن آن تنها عمل تنظیم پرینتر لغو می گردد ولی خود عمل پرینت انجام می شود ....

به نظر شما چه باید کرد ؟

ممنون میشم از راهنمایی تون ...



begin
printdialog1.Execute;
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Image4.picture.Width * scaleX, Image4.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Image4.Picture.Graphic);

finally
EndDoc;
end;
end;

[Mohammad S]

شما به جای دستور printdialog1.Execute; دستور If printdialog1.Execute then را بنویسید و بقیه دستورات را درون این شرط قرار دهید.

[alireza_63]

متشکرم از توجهتون .