1 (edited by sibprogsistem 2019-11-08 14:40:11)

Topic: печать изображения

принтер в трее отображается, очередь занята(но везуально пусто) и на печать не выводиться

procedure frmComDoc_bPrint_OnClick (Sender: TObject; var Cancel: boolean);
 var
  printDialog:TPrintDialog;
  Printer:TPrinter;
  Canvas:TCanvas;
  Image:TImage;
begin
  Printer:=TPrinter.Create;
  Canvas:=TCanvas.Create;
  Image:=TImage.Create(frmComDoc);
  Image.Picture.LoadFromFile(frmComDoc.dbImage.dbFileName);
  printDialog := TPrintDialog.Create(frmComDoc);
  if printDialog.Execute then
  begin
   With Printer do Begin
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(0,0,PageHeight,PageWidth,Image.Picture.Graphic);
    Printer.EndDoc;
   end;
  end;
end;

Re: печать изображения

Проверил ваш код, все печатает. Ищите причину в принтере/настройках системы.

P.S. Спасибо за рабочий пример печати ))))

Создание приложений https://sites.google.com/view/my-visual-database
Курсы программирования https://vk.com/createmyvisualdatabaseapp

Re: печать изображения

не печатает.
выдает окно на печать, затем тишина...
не посылается на печать..

Re: печать изображения

Image.Picture.LoadFromFile(frmComDoc.dbImage.dbFileName);

Printer.Canvas.StretchDraw(0,0,PageHeight,PageWidth,Image.Picture.Graphic

что это за строки? откуда они данные берут? или что выводят?

Re: печать изображения

stas.kodpi wrote:

Image.Picture.LoadFromFile(frmComDoc.dbImage.dbFileName);

Printer.Canvas.StretchDraw(0,0,PageHeight,PageWidth,Image.Picture.Graphic

что это за строки? откуда они данные берут? или что выводят?

в Image.Picture.LoadFromFile - загрузить изоброжение из frmComDoc.dbImage.dbFileName
Printer.Canvas получает Image.Picture

вот-ток вроди работает... попробуйте у себя

procedure frmComDoc_bPrint_OnClick (Sender: TObject; var Cancel: boolean);
var
printDialog:TPrintDialog;
begin
printDialog := TPrintDialog.Create(frmComDoc);
if printDialog.Execute then
  begin
  with Printer do
    begin
      BeginDoc;
      Canvas.StretchDraw(0, 0, PageWidth, PageHeight,frmComDoc.dbImage.Picture.Graphic);
      EndDoc ;
    end;
  end;
end;

Re: печать изображения

а если у меня есть форма, и на ней и фото, и разные данные, и комбобоксы, и т.д..
как мне вывести такое на лист? сразу, из формы?  т.е.  в таком же виде как на форме?
это возможно?

Re: печать изображения

для этого есть дезайнер отчетов, в нем можно настроить печать как Вам нужно