印刷用紙方向 (ID:42784)

名前

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

本文

ひとつ教えて頂きたいのですが、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です

←解決時は質問者本人がここをチェックしてください。

戻る