|
2019/4/10 (水) 23:01:48 igy |
▼ Mr.XRAYさん
> igy さんなんかどうですか ?
（笑）
アドバイザーになれるほどの知識や経験、ないですよ〜
私の場合、掲示板などの質問で、
試していませんが、○○はいかがですか？
とか、
（問題が切り分けできていない質問などでは）○○をした場合、どうなりますか？
とか、書き込んだりするぐらい しかできないので・・・
話は、変わりますが、
前に、WordやExcelでPDFファイルのエクスポートの事をここに書きましたが、
Windows 10で「Microsoft Print to PDF」を使って、PDFファイルを生成するときも、
「印刷結果を名前を付けて保存」ダイアログを出さずに、生成 出来ないかな？って
思ってたのですが、
Microsoft Print to PDF で C/C++ コードから出力ファイル名を指定する方法
https://perce-neige.hateblo.jp/entry/2018/09/14/180047
があったので、Delphiで試してみたら、TPrinterの
SetPrinterメソッド の 引数 APort でファイル名を指定したら出来ました。
[ 013_プリンタのプロパティ設定 ] - Mr.XRAY
http://mrxray.on.coocan.jp/Delphi/plSamples/013_SetPrinterProperty.htm
の
> procedure TForm1.ComboBox1Select(Sender: TObject);
> begin
> //選択したプリンタを現在のプリンタとする
> Printer.PrinterIndex := ComboBox1.ItemIndex;
>
> //ここで取得するFDeviceMode1には，変更前のプリンタの情報が格納されている
> //その他の値は現在(変更後)のプリンタの情報となっている
> Printer.GetPrinter(FDevice, FDriver, FPort, FDeviceMode);
> //FDeviceMode初期化
> Printer.SetPrinter(FDevice, FDriver, FPort, 0);
> //FDeviceModeが新しいプリンタドライバの値となる
> Printer.GetPrinter(FDevice, FDriver, FPort, FDeviceMode);
> end;
の部分を参考にさせてもらいました！
Printer.PrinterIndexが「Microsoft Print to PDF」を選択されたとき、
> Printer.SetPrinter(FDevice, FDriver, FPort, 0);
の前に、
StrPCopy(FPort, ファイル名);
のようにファイル名を指定してみたら、出来ました。
以上、PDF関連情報でした！！
|
|