プリンターの用紙変更をするには？ (ID:37891)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも参考にさせていただき有難うございます。 プリンターで２種類のサイズに印刷するのですが、２回目に用紙サイズを設定しようとすると、GlobalLockの戻り値がnilに成ります。 プリンターの終了処理が悪いのですか、教えて下さい。 ＸＰ Ｄ４です。 ADevice, ADriver, APort: array[0..512] of Char; ADeviceMode: THandle; ADevMode : ^TDevMode; procedure TForm1.PriBtnClick(Sender: TObject); Printer.GetPrinter(ADevice, ADriver, APort, ADeviceMode); if ADeviceMode <> 0 then begin ADevMode := GlobalLock(ADeviceMode); //***２回目ここでnilになる if (P_No.ItemIndex = 0) then begin // 用紙1 ADevMode^.dmPaperLength := Trunc(Inc_Pix * 4.5); ADevMode^.dmPaperWidth := Inc_Pix * 9; end else begin ADevMode^.dmPaperLength := P_Round(Inc_Pix * 4.0); ADevMode^.dmPaperWidth := P_Round(Inc_Pix * 7.5); end; GlobalUnLock(ADeviceMode); Printer.SetPrinter(ADevice, ADriver, APort, ADeviceMode); ・ ・ Printer.BeginDoc; // 印刷処理開始 Printer.NewPage; ・ ・ Printer.EndDoc; // 終了 DeleteObject(Printer.Canvas.Font.Handle); if ADeviceMode <> 0 then begin GlobalUnlock(ADeviceMode); GlobalFree(ADeviceMode); ADeviceMode := 0; end; DeleteDC(W_PHand); end; end;