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

Вниз

Распечатка PaintBox.   Найти похожие ветки 

 
Koliaff ©   (2004-04-28 13:24) [0]

Написал процедурe печати Рисунка из PaintBoxa. Рисунок помещается на два листа, но принтер печатает только первый, а второй не печатает. Помогите плиз разобраться ...
Код процедуры :
procedure TPLAN.N8Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
Printer.PrinterIndex:=0;
Printer.Orientation:=poLandscape;
with Printer do
try
BeginDoc;
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, ImG.Width * ScaleX, Img.Height * ScaleY);
Canvas.CopyRect(R,IMG.Canvas,R) // **

finally
EndDoc; // **
end;
end;


 
Koliaff ©   (2004-04-28 14:11) [1]

Удалено модератором
Примечание: Создание пустых сообщений


 
Koliaff ©   (2004-04-28 14:50) [2]

Удалено модератором
Примечание: Создание пустых сообщений


 
Тимохов ©   (2004-04-28 14:56) [3]


> Рисунок помещается на два листа, но принтер печатает только
> первый, а второй не печатает

Он не такой умный.

1. Вы должны сами определить, сколько влезет на первый лист.
2. Скоприовать на принтерный канвас нужную часть.
3. Начать новую страницу
4. На ней допечатать остаток.


 
ASMiD ©   (2004-04-28 15:31) [4]

Можно также отмасштабировать рисунок под размер листа принтера.



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

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

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1083335198
Elast
2004-04-30 18:26
2004.05.16
DBGridEh


3-1082630969
huyone
2004-04-22 14:49
2004.05.16
как из программы создать индекс, переиндесировать старый?DBASE II


1-1083241514
V-Isa
2004-04-29 16:25
2004.05.16
Scroll в Delphi 3


1-1083070280
killer
2004-04-27 16:51
2004.05.16
Scrolling в StringList


14-1083132720
Pomoshnik
2004-04-28 10:12
2004.05.16
Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский