印刷用紙方向

解決

初心者 2012-08-16 22:07:12 No: 42784

ひとつ教えて頂きたいのですが、QuickRepでの印刷で
A4 横で印刷を行おうと色々調べた結果以下のコードになりました。

procedure Set_Print;
var
  ADevice, ADriver, APort: array[0..255] of Char;
  ADeviceMode: THandle;
  ADevMode : ^TDevMode;
begin
  Printer.GetPrinter(ADevice, ADriver, APort, ADeviceMode);
  if ADeviceMode <> 0 then
  begin
    ADevMode := GlobalLock(ADeviceMode);
    ADevMode^.dmPaperSize := DMPAPER_A4;          //用紙をA4
    ADevMode^.dmOrientation := DMORIENT_LANDSCAPE; //横にする
    GlobalUnLock(ADeviceMode);
    Printer.SetPrinter(ADevice, ADriver, APort, ADeviceMode);
  end;

//確認用 st

  QuickRep1.PrinterSettings.Orientation := poLandscape;
  IF QuickRep1.PrinterSettings.Orientation = poPortrait then
    ShowMessage('1')
  else
    ShowMessage('2');
  QuickRep1.UserPrinterSettings.Orientation := poLandscape;
  IF QuickRep1.UserPrinterSettings.Orientation = poPortrait then
    ShowMessage('1')
  else
    ShowMessage('2');

//確認用end
QuickRep1.print;

end;

QuickRep1.PrinterSettings.OrientationもQuickRep1.UserPrinterSettings.Orientationともに2がかえってくるので
poPortraitには設定できていると思いますが、A4縦で印字されてしまいます。
まだ設定が足りていない箇所がありますでしょうか。

また過去ログにもあったのですが、レポートのプレビューでも縦表示になってしまいます(QuickRep1は横にしています)

環境：Windows7 Pro Delphi2009 QRP 5.04.1です

Atchoum 2012-08-16 22:45:53 No: 42785

こんにちわ。

プリンター変えてみるとどうですか？横に出ませんか？

プリンターがない場合はBullZipなどを使ってPDFに出力するなど。

基本QuickRep1が横になっていれば印刷もプレビューも横になるのですが。。。

初心者 2012-08-16 22:50:10 No: 42786

>>Atchoumさん
返信ありがとうございます、SP4310(リコー)→PDFプリンターに変更を行っても現象は改善されません。
過去に使用したときはQuickRep1が横になっていれば印刷もプレビューも横になったので、なぜこのようなことになっているのかわからずに戸惑っております・・・

Atchoum 2012-08-16 22:59:15 No: 42787

そうですか、だめでしたか。

新しいプロジェクト作成して、
QuickRep1、その上にBand追加して、QRLabelを追加したシンプルなコーディングなしのアプリでも同じでしょうか？

過去にはできたとありますが、過去と今で何かコードや環境で相違点あるのでしょうか？

上のサンプルで試しましたが、こちらの環境Windows7,DelphiXE,QuickReport5.05でうまく横印刷できました。
なので上のコードは間違ってはいないと思います。

初心者 2012-08-16 23:14:07 No: 42788

>>Atchoumさん
過去と現在とでは環境が違っておりまして
過去windwsXP Pro Delphi 5 QRP 2だったかと思います、QRPのバージョンはちょっとあやふやです

現状はこのような感じです・・・
http://cdn.uploda.cc/img/img502c816d7a602.png
どうしたものか・・・

Atchoum 2012-08-16 23:31:28 No: 42789

画像拝見しました。

サムネイルは横なのに、右側のプレビューは縦ですね。

最新のQuickReport5.05のようです。
新しいバージョンにして試してみてはいかがでしょうか？

http://www.quickreport.co.uk/WebInfoPage.aspx?WebInfoID=616

初心者 2012-08-16 23:47:57 No: 42790

>>Atchoumさん
順番にバージョンをあげてこうと思い、QRP 5.04.1→5.04.2に変更した所。
きちんと横表示になりました！
ありがとうございます。