お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"印刷用紙をA4縦に固定"

この発言に対し以下のコメントが寄せられています
#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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum