Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2008, 20:23   #1
tigr1991
Пользователь
 
Регистрация: 14.01.2008
Сообщений: 34
По умолчанию одновременная печать формы и Webbrowser

Как напечатать форму я знаю, как содержимое Webbrowser.
А как распечатать форму накоторой находится Webbrowser (чтобы он тоже пропечатался на форме)
tigr1991 вне форума Ответить с цитированием
Старый 28.09.2008, 21:28   #2
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

я вопроса непонял так бы мож помог
jone вне форума Ответить с цитированием
Старый 28.09.2008, 22:16   #3
tigr1991
Пользователь
 
Регистрация: 14.01.2008
Сообщений: 34
По умолчанию

смотрите, есть форма на которой расположены всякие label'ы, edit'ы и т.д.
плюс на форме есть webbrowser, который загружает сайт. Так как мне распечатать окно программы (скрин окна программы).
Если просто сделать form1.print то всё напечатается, кроме webbrowser'a. Так как сделать чтобы всё распечаталось (и едиты и лэйбэлы и ВЕББРОУЗЕР)
tigr1991 вне форума Ответить с цитированием
Старый 29.09.2008, 19:46   #4
tigr1991
Пользователь
 
Регистрация: 14.01.2008
Сообщений: 34
По умолчанию

кто-нибудь поможет?
tigr1991 вне форума Ответить с цитированием
Старый 01.10.2008, 14:41   #5
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

так попробуй


uses Printers,

procedure TForm1.Button1Click(Sender: TObject);
Var
DC: HDC;
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.Height:=form1.Height;
bmp.Width:=form1.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, -form1.Left, -form1.Top, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile('c:/forma.jpg'); //Здесь можешь изменить путь, куда нужно сохранить файл. Так же в этой строчке изменяется название файла.
ReleaseDC(0, DC);
Printer.BeginDoc;
Printer.Canvas.Draw(0,0,Bmp);
Printer.EndDoc;
finally
Bmp.Free;
end;end;
jone вне форума Ответить с цитированием
Старый 01.10.2008, 14:43   #6
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

ещё будут вопросы пиши в аску 948289 мож помогу)
jone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
печать формы vldand Microsoft Office Access 1 19.09.2008 11:12
Печать формы. Delphi 7 Racfor Общие вопросы Delphi 7 03.08.2008 19:52
Сохранение и печать формы Технолог Компоненты Delphi 1 17.05.2008 14:42
Печать компонентов формы monushka Помощь студентам 6 07.11.2007 19:30
Печать формы ♠STO♠ Общие вопросы Delphi 6 30.08.2007 16:03