zoro21750
دوشنبه 30 آذر 1383, 19:17 عصر
سلام.
من تو دلفی، تنها راهی که برای پرینت کردن یک صفحه بلدم اینه:
Printer.BeginDoc; // **
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic); // **
finally
EndDoc; // **
end;
مشکل اینه که این کار خیلی طول میکشه و حجم document برای یک صفحه A4 و رزولوشن 300 به 24mg میرسه! حتی اگر فقط یک پیکسل آن را سیاه کرده باشم، باز هم نه زمان و نه حجم تغییری نمیکند!
چی کار کنم؟ :گیج:
من تو دلفی، تنها راهی که برای پرینت کردن یک صفحه بلدم اینه:
Printer.BeginDoc; // **
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic); // **
finally
EndDoc; // **
end;
مشکل اینه که این کار خیلی طول میکشه و حجم document برای یک صفحه A4 و رزولوشن 300 به 24mg میرسه! حتی اگر فقط یک پیکسل آن را سیاه کرده باشم، باز هم نه زمان و نه حجم تغییری نمیکند!
چی کار کنم؟ :گیج: