VB6で印刷した場合のドキュメント名を変更するには

解決

yan 2009-10-15 20:37:19 No: 142634

VB6SP5の Printer オブジェクトで簡単な印刷をするアプリを作りました。
これを使って印刷をすると、プリンタドライバにそのJOBの名前が出ますが、
複数印刷しても、全てドキュメント名のところに同じ文字が出てしまいます。

具体的にはプロジェクトプロパティの「アプリケーション」の部分の
「タイトル(T)」に入れた文字になります。

これを、1 JOBごとにユニークな名前にする方法はあるでしょうか。
例えば「申請書_001_山田太郎」みたいな感じです。

宜しくお願い致します。

魔界の仮面弁士 2009-10-15 22:38:24 No: 142635

出力する直前に、
App.Title = ユニーク名
というコードを加えてみてはいかがでしょう(未確認)。

yan 2009-10-15 22:51:38 No: 142636

魔界の仮面弁士さん、いつもありがとうございます。

> App.Title = ユニーク名

これでいけました。
ありがとうございました。助かりました。