이렇게 페이지 사이즈를 지정했거덩여? 물론 퀵레포에서두 설정을 똑같이 하구여...



근데 이게 첫장은 제대로 나오는데 두번째 장부터 조금씩 위로 나오는 군여...



그래서 혹시 용지 설정에 뭔가 이상이 있는게 아닌가 해서여...



혹 자동급지나 트랙터 급지를 설정할수 있는 방법 아시는분~ 코딩으로요....^^;





procedure TForm1.PageSize;

var Device : array[0..255] of char;

Driver : array[0..255] of char;

Port : array[0..255] of char;

hDMode : THandle;

PDMode : PDEVMODE;

begin

Printer.PrinterIndex := Printer.PrinterIndex;

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

if hDMode <> 0 then

begin

pDMode := GlobalLock(hDMode);

if pDMode <> nil then

begin

{Set to custom size}

pDMode^.dmOrientation := DMORIENT_PORTRAIT;

pDMode^.dmFields := pDMode^.dmFields or

DM_PAPERSIZE or

DM_PAPERWIDTH or

DM_PAPERLENGTH;



///////자동급지...트랙터 급지 설정을 하구 시포요...



pDMode^.dmPaperSize := DMPAPER_USER;

pDMode^.dmPaperWidth := 255 {SomeValueInTenthsOfAMillimeter};

pDMode^.dmPaperLength := 345 {SomeValueInTenthsOfAMillimeter};



{Set the bin to use}

pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;

pDMode^.dmDefaultSource := DMBIN_MANUAL;

pDMode^.dmDefaultSource := 8;

GlobalUnlock(hDMode);

end;

end;

Printer.PrinterIndex := Printer.PrinterIndex;

end;