자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 인쇄 대화상자가 표시되지 않고 인쇄하는 방법
2019.02.12 15:55
Q.
인쇄 대화상자가 표시되지 않고 인쇄하는 방법
A,
다음 코드와 링크를 참고하시기 바랍니다.
TPrinter 전역 변수인 Printer를 통해 직접 인쇄를 구현할 수 있습니다.
uses
Vcl.Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Printer.SetPrinter(PChar('Microsoft XPS Document Writer'), '', '', 0); // [옵션] 프린터 지정
Printer.BeginDoc;
try
Printer.Canvas.Lock;
// 인쇄할 내용을 Canvas에 그립니다.
Printer.Canvas.TextOut(10, 10, 'test');
Printer.Canvas.Unlock;
finally
Printer.EndDoc;
end;
end;
참고: https://stackoverflow.com/questions/41748116/how-to-set-filename-when-printing-to-microsoft-print-to-pdf-in-delphi
댓글 0
Delphi 인쇄 대화상자가 표시되지 않고 인쇄하는 방법
2019.02.12 15:55
Q.
인쇄 대화상자가 표시되지 않고 인쇄하는 방법
A,
다음 코드와 링크를 참고하시기 바랍니다.
TPrinter 전역 변수인 Printer를 통해 직접 인쇄를 구현할 수 있습니다.
uses
Vcl.Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Printer.SetPrinter(PChar('Microsoft XPS Document Writer'), '', '', 0); // [옵션] 프린터 지정
Printer.BeginDoc;
try
Printer.Canvas.Lock;
// 인쇄할 내용을 Canvas에 그립니다.
Printer.Canvas.TextOut(10, 10, 'test');
Printer.Canvas.Unlock;
finally
Printer.EndDoc;
end;
end;
참고: https://stackoverflow.com/questions/41748116/how-to-set-filename-when-printing-to-microsoft-print-to-pdf-in-delphi