procedure TForm1.Button1Click(Sender: TObject);
var
  Pd : TPrintDlg;
  DocInfo: TDocInfo;
begin
  FillChar(Pd, sizeof(Pd), #0); 
  Pd.lStructSize := sizeof(Pd);
  Pd.hWndOwner := Form1.Handle;
  Pd.Flags := PD_RETURNDC;
 
  if PrintDlg(pd) then begin
     FillChar(DocInfo, sizeof(DocInfo), #0);
     DocInfo.cbSize := SizeOf(DocInfo);
     GetMem(DocInfo.lpszDocName, 32);
     GetMem(DocInfo.lpszOutput, MAX_PATH);
     lStrCpy(DocInfo.lpszDocName, 'My Document');
     {Add this line to print to a file }
     lStrCpy(DocInfo.lpszOutput, 'C:\Download\Test.doc');
     StartDoc(Pd.hDc, DocInfo);
 
     StartPage(Pd.hDc);
     TextOut(Pd.hDc, 100, 100, 'Page 1', 6);
     EndPage(Pd.hDc);
     StartPage(Pd.hDc);
     TextOut(Pd.hDc, 100, 100, 'Page 2', 6);
     EndPage(Pd.hDc);
     EndDoc(Pd.hDc);
     FreeMem(DocInfo.lpszDocName, 32);
     FreeMem(DocInfo.lpszOutput, MAX_PATH);
   end;
end;

 

번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 14387
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 13023
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 15532
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 21064
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 22297
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 17933
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 38228
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 173741
23 Delphi XE2에서 맥 애플리케이션을 만들어 보자 박병일 2012.01.18 12993
22 델파이 XE2로 아이폰앱 만들기 박병일 2012.01.18 13046
21 델파이 XE2로 만든 아이폰 앱 - TicTacToe file 박병일 2012.01.17 13952
20 2012년 소프트웨어 트랜드 세미나 박병일 2012.01.12 7610
19 [링크]안드로이드를 위한 데이터 스냅 서버 박병일 2012.01.12 8427
18 VCL Style Util 박병일 2012.01.11 10286
17 32개의 Rad Studio 비디오 튜토리얼 박병일 2012.01.07 3829
16 델파이 에서 안드로이드로 박병일 2012.01.06 6194
15 SendMessage 함수를 이용한 메세지 전송 관리자 2012.01.05 18247
14 델파이 XE2의 Namespace 문제 관리자 2011.12.22 5480
13 RichEdit 에서 라인과 칼럼을 알아내기 박병일 2011.12.22 6706
» PrintDialog 를 사용하지 않고 프린트 하기 박병일 2011.12.22 6150
11 Image 에 글자 출력하기 박병일 2011.12.22 7254
10 Form에 있는 콤포넌트를ListView 로 나타내기 박병일 2011.12.22 5587
9 DBGrid 에서 GraphicsField 보여주기 박병일 2011.12.22 5772
8 DBGrid 에서 Cell 모양의 색깔 바꾸기 박병일 2011.12.22 11248
7 ComboBox에서 Focus 가 올때 자동으로 펼쳐 내리기 박병일 2011.12.22 11427
6 CD-ROM 열고 닫기 박병일 2011.12.22 44760
5 Alt -F4 로 종료 못하게 하기 박병일 2011.12.22 10827
4 Hotfix 2 for C++Builder XE2, Delphi XE2 and RAD Studio XE2 is now available 박병일 2011.12.22 5820