QuickReportでのプリンタ設定 (ID:39397)

名前

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

本文 UserPrinterSettingsを使っているところをみると、QR4かな？ トレイはともかく白黒orカラーは設定されていないかもしれない。 ページ設定や、部数が正しく動作しているなら、下記で動くような 気がしますが、自信なし。 QuickRep1.OnApplyPrinterSettings := QRPrinterSettingsEvent; Print; end; procedure TForm1.QRPrinterSettingsEvent(Sender : TObject; var Cancel : Boolean; DevMode : pointer); var outputBin :Integer; begin //トレイの確認用 // outputBin が以下の値になっているか //First = 1 //Upper = 1 //Lower = 2 //Middle = 3 //Manual = 4 outputBin := PDeviceMode(DevMode)^.dmDefaultSource AND $FF; //おかしいなら設定しなおすしかないのかな？ //バグ？ //白黒 or カラーがこれが動くかどうかわからない if PDeviceMode(DevMode)^.dmFields AND DM_COLOR > 0 then begin DeviceMode(DevMode)^.dmColor := QuickRep1.UserPrinterSettings.ColorOption; end; end;