Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

Отчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее   Найти похожие ветки 

 
Rahim & Vad   (2002-01-27 16:58) [0]

Не получается вывести картинку (объект TBitmap) на принтер формата А3 с помощью модуля TPrinter! Выводит чистый лист. Причём на формат А4 картинка выходит без проблемм.
И проблемма №2 на принтер НР1200 не вылазит даже формата А4


 
SDS ©   (2002-01-27 17:02) [1]

А код можешь привести?


 
R&V   (2002-01-27 17:18) [2]

with Printer do
begin
BeginDoc;
// Ширина и высота таблицы
TabWidth:=PageWidth;
TabHeight:=PageHeight;
// Координаты таблицы
Coord.TopLeft.x:=0;
Coord.TopLeft.y:=0;
Case RadioGroup1.ItemIndex of
0:begin
Coord.BottomRight.x:=TabWidth;
Coord.BottomRight.y:=TabHeight;
end;
1:begin
Coord.BottomRight.x:=Round(TabWidth*0.84);
Coord.BottomRight.y:=Round(TabHeight*0.84);
end;
2:begin
Coord.BottomRight.x:=Round(TabWidth*(SpinEdit1.Value/100));
Coord.BottomRight.y:=Round(TabHeight*(SpinEdit1.Value/100));
end;
end;
// Вывод таблицы
Canvas.StretchDraw(Coord, Bmp);
EndDoc;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.02.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-32167
binom
2002-01-03 15:52
2002.02.11
SDAC by CoreLab - прямой доступ к MS SQL без БДЕ, АДО и пр.


1-32287
gamer
2002-01-26 02:05
2002.02.11
Скроллинг


3-32140
ola
2002-01-15 08:52
2002.02.11
как работать с шаблонами Word в Delphi


1-32220
ev
2002-01-24 20:04
2002.02.11
Есть ли платформно-независимый Object Pascal?


1-32226
madcap
2002-01-27 01:26
2002.02.11
Функция не возвращает TStringList