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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2011, 12:57   #1
Oleg Romanchuk
Ghost
Форумчанин
 
Аватар для Oleg Romanchuk
 
Регистрация: 16.08.2007
Сообщений: 143
По умолчанию Печать Image несколько копий в одной строке, + текст в низу картинки...

Добрый день, подскажите чем воспользоваться.

Нужно распечатать картинку 3 раза в одной строчке, а строчек столько сколько хватит листа формата A4. Так же внизу картинки нужно распечатать текст. У меня получилось с помощью Объекта TPrinter распечатать один раз в верхнем левом углу.

Код:
var
  x1,x2,y1,y2:integer;
  PointsX,PointsY:Double;

begin
  if PrintDialog1.Execute then
    begin
      Printer.BeginDoc;
      Printer.Canvas.Refresh;

      PointsX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX)/90;
      PointsY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY)/90;

      X1:=Round((10*PointsX)/2);
      Y1:=Round((15*PointsY)/2);

      X1:=Round((150*PointsX)/2);
      Y1:=Round((200*PointsY)/2);

      X2:=Round(X1+Image1.Picture.Bitmap.Width*PointsX);
      Y2:=Round(Y1+Image1.Picture.Bitmap.Height*PointsY);

      Printer.Canvas.CopyRect(Rect(x1,y1,x2,y2),Image1.Picture.Bitmap.Canvas,Rect(0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height));
      Printer.EndDoc;
    end;

Точно также получилось распечатать с помощью компанента QReport.

Подскажите куда копать дальше, пробовать с объекта TPrinter или с помощью QReport?
Или еще может можно еще как нибудь проще поступить?
Спасибо!
Oleg Romanchuk вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отправлял бы печать на принтер, количесто копий указанных в ячейке mars56 Microsoft Office Excel 5 24.12.2009 07:01
несколько одновременно работающих копий программы - ? Evgenii Общие вопросы Delphi 3 06.07.2009 09:38
Как запустить несколько копий одной и той же программы? murcot Помощь студентам 4 20.02.2009 11:28
задать печать одной кнопкой, но сразу нужное кол-во копий Kisunya2104 Microsoft Office Excel 1 09.08.2007 22:07