unit unit1;



interface



uses //선언에 printers추가...

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, DBCtrls, ExtCtrls, ComCtrls, DB, DBTABLES, Mask, PRINTERS;



//폼 생성 이벤트에.....

//도구설정에서 셋팅한 프린터로 바꾼다.

//프린터 셋업대화상자에서 선택한내용을 적용하는것임...

Printer.PrinterIndex := Printer.PrinterIndex;



Printer.GetPrinter(Device, Driver, Port, hDMode);

if hDMode <> 0 then

begin

pDMode := GlobalLock(hDMode);

if pDMode <> nil then

begin

// pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;

// pDMode^.dmPaperSize := DMPAPER_LEGAL;



//사용자정의로 셋팅한다.

pDMode^.dmOrientation := DMORIENT_PORTRAIT;

pDMode^.dmFields := pDMode^.dmFields or

DM_ORIENTATION or

DM_PAPERSIZE or

DM_PAPERWIDTH or

DM_PAPERLENGTH;



pDMode^.dmPaperSize := DMPAPER_USER;

pDMode^.dmPaperWidth := 210; //단위는 mm

pDMode^.dmPaperLength := 150; //단위는 mm



GlobalUnlock(hDMode);

end;

end;

printer.Printers[printer.printerindex];





//프린트 버튼 클릭이벤트에....

ACT404P.PrinterSettings.PrinterIndex := printer.printerindex;

ACT404P.PREVIEWMODAL;

ACT404P.FREE;







김민지 wrote:

> 퀵레포트에서 프린터 출력을 하려고 합니다.

> 그런데 PRINT SETUP 아이콘을 클릭하여 페이지 지정으로 출력을 하려고 하는데 안되는군요.

> 어떻게 하면 될까요.

> 갈켜주세요...

> 꾸뻑...