掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Printers.pasのBeginDoc関数を変更したい (ID:43533)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var SavePrinter: Printers.TPrinter; begin SavePrinter := Printers.SetPrinter(Printers.TPrinter(PrintersEx.Printer)); PrintersEx.Printer.Copies := 20; //確認用 if Pointer(Printers.Printer) = Pointer(PrintersEx.Printer) then Memo1.Lines.Add('同じ1'); if PrintDialog1.Execute = True then begin end; if Pointer(Printers.Printer) = Pointer(PrintersEx.Printer) then Memo1.Lines.Add('同じ2'); Memo1.Lines.Add(IntToStr(Printers.Printer.Copies)); //変更した数になる Memo1.Lines.Add(IntToStr(PrintersEx.Printer.Copies)); //変更した数になる Printers.SetPrinter(SavePrinter); Memo1.Lines.Add(IntToStr(Printers.Printer.Copies)); //１のまま Memo1.Lines.Add(IntToStr(PrintersEx.Printer.Copies)); //変更した数になる 同じ1 同じ2 表示される？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.