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




Вниз

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


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;




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




Наверх





Память: 0.72 MB
Время: 0.031 c
1-32208           Вовчик                2002-01-25 21:43  2002.02.11  
Ошибка в вычислениях


3-32163           Eduard                2002-01-16 13:20  2002.02.11  
SQLClientDataSet, Params


1-32251           Jony                  2002-01-28 10:54  2002.02.11  
EhLib


1-32183           Mitrofan              2002-01-25 11:39  2002.02.11  
Как синхронно скролировать два Memo or ListBox a


4-32374           iyalosovetsky         2001-12-05 19:08  2002.02.11  
авторизация в w2k