Форум: "Основная";
Текущий архив: 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;
Печатается калично, что делать?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c
