Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с принтером

Страницы: < 1 2
sergeyxxx © (2007-03-26 07:30:00)
if (PrintDialog1.Execute) then begin
PrinterSetupDialog1.Execute;
Printer.Canvas.Draw(800,600,Image1.Picture.Graphic);

Народ подскажите пожалуйста что я нетак делаю.. нехочет распечатоваться..

Loginov Dmitry (2007-03-26 18:05:00) [21]
> а у меня нехочет пахать..

Так и говорит "Не хочу пахать", или что?

sergeyxxx (2007-03-26 17:52:00) [22]
а у меня нехочет пахать..

Loginov Dmitry (2007-03-26 17:50:00) [23]
> begin
> with Printer do
> begin
> BeginDoc;
> Printer.Canvas.Draw(800,600,Image1.Picture.Graphic);
> EndDoc;
> end;

У меня это работает.

sergeyxxx (2007-03-26 17:49:00) [24]
Удалено модератором

Нуб (2007-03-26 17:48:00) [25]
а я не знаю как будет правильно , по-этому на тебе пример если захочешь разберешся http://files.adamant.ua/4755

sergeyxxx (2007-03-26 17:44:00) [26]
Удалено модератором

Нуб (2007-03-26 17:43:00) [27]
Удалено модератором

sergeyxxx (2007-03-26 17:43:00) [28]
С Richedit без проблем а вот с Image.Picture невыходит...

begin
if (PrinterSetupDialog1.Execute) then begin
Form3.RichEdit1.Print('имя');
end;

Нуб (2007-03-26 17:41:00) [29]
Удалено модератором

sergeyxxx (2007-03-26 17:39:00) [30]
begin
with Printer do
begin
BeginDoc;
Printer.Canvas.Draw(800,600,Image1.Picture.Graphic);
EndDoc;
end;

Loginov Dmitry (2007-03-26 17:33:00) [31]
> Пробывал толку мало

Как пробовал?

sergeyxxx (2007-03-26 17:33:00) [32]
если ты незнаешь, понт писать бред???

Нуб (2007-03-26 17:29:00) [33]

> sergeyxxx ©

зайди на http://ya.ru/- там инфы столько, что можно написать программулину не только чтобы твой принтер заработал, но и все принтеры в соседнем здании начали петь песни

sergeyxxx (2007-03-26 17:24:00) [34]
мда.. думаешь я не вижу что это прикол?

Нуб (2007-03-26 17:00:00) [35]
if (PrintDialog1.Execute) then begin PrinterSetupDialog1.Execute; Printer.Canvas.Draw(800,600,Image1.Picture.Graphic);

еще дописать внизу надА
for i :=1 to all_pages do begin print.allpages.do; if pages not print then print.them.again else shut.down.computer := true; end;

sergeyxxx (2007-03-26 16:53:00) [36]
Пробывал толку мало.. поэтому и обратился сюда кто уже с этим сталкивался и на опыте!

Loginov Dmitry (2007-03-26 07:54:00) [37]
А хэлп читать не пробовал? Там неплохие примеры можно узреть, сразу все понятно станет.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »