TPrinter 이용하여 출력할때...
출력물의 길이를 조절하는
다음의 소스가 프린터가 1대일때는 되는데, 2대 이상이면 안되는 군요.ㅜㅜ
고수님들 좀 도와주세요.
Printer.GetPrinter(ADevice,ADriver,APort,ADeviceMode);
if ADeviceMode <> 0 then
begin
pDMode := GlobalLock(ADeviceMode);
if pDMode <> nil then
begin
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth := 2440; //단위는 mm
pDMode^.dmPaperLength := 2035; //단위는 mm
GlobalUnlock(ADeviceMode);
// Printer.PrinterIndex := Printer.PrinterIndex;
end;