この発言は
#00007　MOMO_P          さんの印刷用紙をA4縦に固定
に対するコメントです

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

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






通常使うプリンターじゃない場合のとき
MOMO_Pさんの方法に２行追加して

procedure SetPaper(Value: integer);
var
  DeviceMode: THandle;
  DevMode:    PDeviceMode;
  Device, Driver, Port: array [0..255] of Char;
begin
  Printer.GetPrinter(Device, Driver, Port, DeviceMode); // これと
  Printer.SetPrinter(Device, Driver, Port, 0);          // これ
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  if DeviceMode <> 0 then
  begin
    DevMode := GlobalLock(DeviceMode);
    DevMode^.dmPaperSize := Value;
    GlobalUnlock(DeviceMode);
  end;
  Printer.SetPrinter(Device, Driver, Port, DeviceMode);
end;

なぜかこれでいけます！？
どう考えても無意味な２行に思えるMARINです；

                                     97/10/18(土) 13:03 MARIN(PXI10376)

Original document by MARIN           氏 ID:(PXI10376)

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