Текущий архив: 2002.04.08;
Скачать: CL | DM;
Вниз
Печать из TImage Найти похожие ветки
← →
yar (2002-03-28 13:21) [0]Не могу напечатать рисунок из Timage
Делаю так.
Printer.BeginDoc;
Printer.Canvas.StretchDraw(image1.ClientRect,image1.picture.graphic);
Printer.EndDoc;
Он печатает но рисунок маленький.
Подскажите пожалуйста что делат, если можно пример.
Заранее благодарю
← →
ProgMan © (2002-03-28 13:51) [1]Printer.Canvas.StretchDraw( image1.ClientRect - здесь д.б. Rect принтера,image1.picture.graphic);
Не забудь, что Rect зависит от ориентации бумаги.
Маленький размер - из-за разрешения.
Допустим, принтер печатает 600 dpi, тогда картинка 600х600 при печати будет дюймХдюйм :-(
← →
Alx2 © (2002-03-28 15:04) [2]Эти параметры должны помочь:)
DpiX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
DpiY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
ScrDpi := SCREEN.PixelsPerInch;
Страницы: 1 вся ветка
Текущий архив: 2002.04.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.008 c
