[WR3.1]JobNameのsetに関して

[山崎]

お世話なります。

現状、OCXを使用してプログラムを作成しております。印刷のスプールに出力する際に、ドキュメント名をSETしたいのですが、出来ません。（印刷スプーラに無題で表示されます。）
waxprinter.JobNameはどのタイミングでjobnameにsetすればよいのでしょうか？

[伊藤＠ソフトウィング]

日頃より弊社製品をご利用いただきまして、誠にありがとうございます。

ご連絡頂きました、JobNameの設定を行うタイミングについてですが、プリンタオブジェクトを作成してからプリンタをオープンする前までに設定して頂く事が可能です。

下記にサンプルを載せますので、参考にして下さい。

（例）VisualBasic6サンプル１
　　　–レポートに設定したタイトルを印刷ジョブとして指定

‘プリンターオブジェクトの設定
‘—————————-
Case PRINT_MODE_PRINT

‘プリンターオブジェクトを作成します
Set waxPrinter = frm.WR3AXCL1.CreatePrinter
With waxPrinter

‘キャンセルダイアログは表示しません
.CancelDlg = False

‘印刷ジョブ名の設定
.JobName = waxReport.Title

‘プリンターをオープンします
.OpenPrinter frm.hWnd: bPrtOpen = True

‘プリンター出力するレイヤーの表示・非表示を設定します
waxReport.Layer(1).Visible = True
waxReport.Layer(2).Visible = False
waxReport.Layer(3).Visible = False
waxReport.Layer(4).Visible = False
waxReport.Layer(5).Visible = False

‘レポートを出力します
.ReportPrint waxReport

‘プリンターをクローズします
.ClosePrinter True: bPrtOpen = False

‘プリンターオブジェクトを削除します
waxPrinter.Delete
Set waxPrinter = Nothing

MsgBox “印刷終了しました。”, vbOKOnly, App.Title

End With

以上、宜しくお願い致します。

[山崎]

すみません、確認に時間がかかりました。当方プログラム作成はVBではなく、Delphiですがサンプルを参照しながらプログラム修正し、問題なく出力されました事、報告します。

[投稿者]

投稿