この発言に対し以下のコメントが寄せられています

#00014　MARIN           さん　通常使うプリンターじゃない場合





//uses 節にPrintersを追加しておく事
//Button1Clickで用紙をA4縦にする
procedure TForm1.Button1Click(Sender: TObject);
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_PORTRAIT; //縦にする
    GlobalUnLock(ADeviceMode);
    Printer.SetPrinter(ADevice, ADriver, APort, ADeviceMode);
  end;
end;

                              97/10/18(Sat) 00:23am  BYI11634 MOMO_P

Original document by MOMO_P          氏 ID:(BYI11634)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。