새로운 글
새로운 덧글

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;

 

번호 제목 글쓴이 날짜 조회 수
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 691
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 4284
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 911
공지 [프로그래밍 강의] 2019.2~2019.6 관리자 2015.01.22 7278
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 관리자 2015.06.30 12502
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2018년 09월 업데이트 됨) 험프리 2014.01.16 149546
734 델파이 튜토리얼 워크샵 발표자료_3D 프로그래밍과 라이브바인딩 file 관리자 2012.07.05 5799
733 David I의 31 XE3 퀵 비디오 - HTML5 빌더로 클라이언트 모바일 앱 개발하기 관리자 2012.10.15 5798
732 [델파이 문법] 데이터 타입, 변수 및 상수 #4 file 관리자 2013.02.19 5787
» PrintDialog 를 사용하지 않고 프린트 하기 박병일 2011.12.22 5776
730 [무료 동영상 강의] 전체 모음 링크 관리자 2014.07.10 5772
729 [델파이 문법] 프로시저와 함수 #3 file 관리자 2012.07.31 5729
728 [C++빌더 XE3 비디오 31] 인터베이스 Express로 나만의 SQL 데이터베이스 C++ 파이어몽키 앱 만들기 관리자 2013.01.09 5725
727 Hotfix 2 for C++Builder XE2, Delphi XE2 and RAD Studio XE2 is now available 박병일 2011.12.22 5713
726 David I의 31일 동영상(한글자막) - C++빌더로 만든 윈도우와 맥 앱에서 플랫폼 서비스와 OS정보 사용하기 관리자 2013.04.17 5707
725 [델파이 문법] 프로시저와 함수 #4 file 관리자 2012.08.02 5700
724 InterBase ToGo 에디션 퀵사용자 가이드(한글) file 문효섭 2014.01.03 5698
723 [동영상 강의] 델파이 기본 교육_18.부서관리 관리자 2012.08.03 5679
722 C++의 창시자 "비얀 스트로스트럽"이 직접 진행하는 CodeRage7 세션! 관리자 2012.11.30 5663
721 David I의 31일 동영상(한글자막) - 나만의 첫 C++파이어몽키 애플리케이션 관리자 2013.03.12 5660
720 David I의 31일 동영상(한글자막) - 3D앱 만들기(윈도우&맥)(델파이 동일 적용 가능) 관리자 2013.04.23 5654
719 델파이/C++빌더 XE3 수정된 버그 리스트가 올라왔습니다. 관리자 2012.10.23 5647
718 InterBase XE3 데이터시트 file 문효섭 2014.01.04 5643
717 DBGrid 에서 GraphicsField 보여주기 박병일 2011.12.22 5633
716 20120906 RAD Studio XE3 월드투어-서울 세미나 발표자료입니다. [1] file 관리자 2012.09.07 5625
715 [C++mas] C++빌더 코드 64-bit로 마이그레이션하기 관리자 2012.12.21 5584


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..