Q&A

  • TPrinter 이용 출력시...
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;
0  COMMENTS