掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Printers.pasのBeginDoc関数を変更したい (ID:43531)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, PrintersEx, Printers, Vcl.StdCtrls, Vcl.Dialogs; procedure TForm1.Button1Click(Sender: TObject); var SavePrinter: TPrinter; begin SavePrinter := Vcl.Printers.SetPrinter(TPrinter(PrintersEx.Printer)); PrintersEx.Printer.Copies := 20; //確認用 if PrintDialog1.Execute = True then begin end; Memo1.Lines.Add(IntToStr(Printer.Copies)); //変更した数になる Memo1.Lines.Add(IntToStr(PrintersEx.Printer.Copies)); //変更した数になる Vcl.Printers.SetPrinter(SavePrinter); Memo1.Lines.Add(IntToStr(Printer.Copies)); //１のまま Memo1.Lines.Add(IntToStr(PrintersEx.Printer.Copies)); //変更した数になる end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.