Delphi и PrintScreen
Добавлено: 24 окт 2006, 12:41
Есть запущеная форма. нужно на ней сделать кнопочку чтобы при нажатии на нее эта форма печаталась. Как это можно реализовать?
Страница 1 из 2
Добавлено: 24 окт 2006, 20:42
Form1.Print;
Добавлено: 24 окт 2006, 22:03
можно в файл - картинку сохранить
Добавлено: 25 окт 2006, 13:18
Duncon, спасибо!
А как сделать чтобы формат печати был не книжный, а альбомный?
А как сделать чтобы формат печати был не книжный, а альбомный?
Добавлено: 25 окт 2006, 14:14
PrintSetup смотри
Добавлено: 25 окт 2006, 15:55
Лелик, можно подробней?
Добавлено: 25 окт 2006, 16:03
Код: Выделить всё
var
Device : array[0..cchDeviceName-1] of Char;
Driver : array[0..(MAX_PATH-1)] of Char;
Port : array[0..32] of Char;
hDMode : THandle;
pDMode : PDevMode;
sDev : array[0..32] of Char;
begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode <> 0 then
begin
pDMode :=GlobalLock(hDMode);
if pDMode <> nil then
begin
pdMode^.dmOrientation :=2;
pdMode^.dmPaperSize := DMPAPER_A3
// (см. win32.hlp DEVMODE)
GlobalUnlock(hDMode);
end;
end;
end;Добавлено: 27 окт 2006, 18:19
А можно что бы копия экрана отправлялась в ворд?
Добавлено: 27 окт 2006, 20:44
Можно.
Добавлено: 30 окт 2006, 10:53
Duncon, а как?if CreateWord then begin
VisibleWord(true);
If AddDoc then begin
И как сюда скопировать?