Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Помогите с печатью метафайла 


Анонимщик   (2002-02-06 11:08) [0]

Не выходит распечатать метафайл с нужными размерами. Причем на одних принтерах печатается нормально, а на других - нет. Может, где-то нужно размеры корректировать в соответствии с разрешением принтера? Вот код:

Printer.BeginDoc;
pMetafile = TMetafile.Create;
pMetafile.MMWidth = 8600;
pMetafile.MMHeight = 5400;
pMetafile.Inch = 1440;
pMCanvas = TMetafileCanvas.Create(pMetafile, 0);
pMCanvas.MoveTo(0, 0);
pMCanvas.Pen.Color = clBlack;
pMCanvas.Pen.Width = 3;
pMCanvas.LineTo(pMetafile.Width, pMetafile.Height);
pMCanvas.Free;
Printer.Canvas.StretchDraw(TRect(0, 0, pMetafile.Width, pMetafile.Height), pMetafile);
pMetafile.Free;
Printer.EndDoc;

Печатается калично, что делать?



-=CrazyFish=-   (2002-02-06 11:51) [1]

Можно печатать через QReport



Набережных С.   (2002-02-06 16:48) [2]

Может, нужно так:
Printer.Canvas.StretchDraw(Rect(0,0,Printer.PageWidth,Printer.PageHeight),pMetafile);



Анонимщик   (2002-02-06 18:38) [3]

Printer.Canvas.StretchDraw(Rect(0,0,Printer.PageWidth,Printer.PageHeight),pMetafile); - так нельзя, весь метафайл напечатается на всю страницу



Набережных С.   (2002-02-06 18:48) [4]

Ну так вычисли и подставь нужные размеры по соотношениям страницы и метафайла. То, что у тебя - не stretchdraw, а копирование один к одному.



Анонимщик   (2002-02-06 21:32) [5]

Так подставлял. То убирал множитель и делитель - 2.54, то в одном случае, то в другом, то снова ставил. И на разных принтерах по-разному печатается. Я вот не пойму в чем тут дело.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
14-66667          Гаечка                2001-12-20 15:30  2002.02.21  
Нужна помощь


1-66618           RUS1                  2002-02-04 08:51  2002.02.21  
Проблемы при создании ярлыка господа !!!!


1-66587           Brand                 2002-02-06 00:34  2002.02.21  
Автозагрузка через реестр, SysTray


7-66693           Andreika              2001-11-16 02:31  2002.02.21  
Как сохранить данные??


6-66641           Саша.Ру               2001-11-29 19:01  2002.02.21  
Подскажите (умираю!) как задать Proxy server в реестре?