手差し印刷する (QuickReport 3.0.9)

　QuickReportで手差し印刷する方法です。
プレビューのプリンタの設定で給紙方法を変更しても反映されないので何かと大変です、、。
以下の方法だとプログラムから手差し印刷ができます。手差し以外にもいろいろ指定できると思います。

■ 手差し印刷の例

implementation {$R *.dfm} uses QRPrntr; //これを追加 procedure TForm1.Button1Click(Sender: TObject); begin QuickRep1.PrinterSettings.OutputBin := Manual; QuickRep1.Prepare; QuickRep1.Print; end;

OutputBin は列挙型 TQRBin 型ですが、中身は以下のように定義されています。

  TQRBin = (First,
            Upper,
            Lower,
            Middle,
            Manual,
            Envelope,
            EnvManual,
            Auto,
            Tractor,
            SmallFormat,
            LargeFormat,
            LargeCapacity,
            Cassette,
            Last);