Здравствуйте, Гость
Суббота, 25.11.2017, 09:38
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Печатать в delphi
Печатать в delphi
mbvДата: Четверг, 03.06.2010, 12:59 | Сообщение # 1
Ранг 1
Группа: Проверенные
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
мне нужно подставить место моих переменных в RTF файле переменные из программы и распечатать этот файл с переменными из программы.

Заранее Спасибо!

 
AdminДата: Пятница, 04.06.2010, 12:04 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Тут сложно подсказать что то, попробуй просто пробежать весь файл и заменить. Больше сказать ничего не могу.
А про печать могу подсказать только это (печать image):

Code
uses Printers;

var
     ScaleX, ScaleY: Integer;
     R: TRect;
   begin
     Printer.BeginDoc;
     with Printer do
       try
         Canvas.TextOut(100, 100, 'Master Chess View for test');
         ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
         ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
         R := Rect(0, 0, Image1.Picture.Width * ScaleX,
           Image1.Picture.Height * ScaleY);
         Canvas.StretchDraw(R, Image1.Picture.Graphic);
       finally
         EndDoc;
       end;

может быть поможет...


Не оказываю помощь через личные сообщения и ICQ
 
Форум » Все о Delphi » Начинающим » Печатать в delphi
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz