名前 題名 ▼ Saraさん > ▼ 小豚丸さん ▼ Mr.XRAYさん こんにちは > > 012_PrintResolutionにある > // コンボボックスで選択したプリンタで使用可能なビン装置のリストを作成 > を利用してBinの番号を調べる > > その後、 > QuickRep1.PrinterSettings.CustomBinCode := 259;//上記で調べた番号 > QuickRep1.PrinterSettings.UseCustomBinCode := True; > QuickRep1.Prepare; > QuickRep1.Preview; > > とすると、希望したトレイから印刷されました。 > > でも、 > QuickRep1.PrinterSettings.ColorOption := 1; > を間に挟んでも、色は変わりませんでした・・・(^^; > > なので、 > procedure TForm1.SetDefaultPrinter(Color : Integer); > var > Device, Driver, Port: array[0..79] of char; > DeviceMode: THandle; > DevMode: PDeviceMode; > begin > //プリンタ名、DEVMODE構造体を取得 > Printer.PrinterIndex := ComboBox1.ItemIndex; > Printer.GetPrinter(Device, Driver, Port, DeviceMode); > Printer.SetPrinter(Device, Driver, Port, 0); > Printer.GetPrinter(Device, Driver, Port, DeviceMode); > if DeviceMode = 0 then begin > ShowMessage('Printer.GetPrinter エラー'); > Exit; > end; > > DevMode := GlobalLock(DeviceMode); > try > //必要なら、ここで DevModeを修正する > //↓ B5横 に設定する例 > with DevMode^ do begin > dmColor := Color;//色指定 > end; > SetDefaultUsePrinter(Device {←これが「プリンタ名」です} > ,True {「通常使うプリンタ」に設定する} > ,DevMode {DEVMODE構造体を設定する} > ); > finally > GlobalUnlock(DeviceMode); > end; > end; > > を定義して、 > その後、 > QuickRep1.PrinterSettings.CustomBinCode := 259;//上記で調べた番号 > QuickRep1.PrinterSettings.UseCustomBinCode := True; > SetDefaultPrinter(1); > QuickRep1.Prepare; > QuickRep1.Preview; > SetDefaultPrinter(2); > で色と、ビンの変更がうまくいくようです。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link