お世話になります。

vb2010で印刷のプログラムを作成しています。

作成したプログラムをVisual Studio インストーラーのセットアッププロジェクトのテンプレートを利用し、インストーラーを作成しました。

作成したセットアップより、異なる3台のパソコンにインストールを行ったのですが、1台だけどうしても文字が途中で切れてしまう現象が出て困っています。

印刷部分は

Dim g As Graphics = e.Graphics
Dim prtText as String

g.PageUnit = GraphicsUnit.Millimeter
prtText = Microsoft.VisualBasic.StrConv("1234567", VbStrConv.Wide)
g.DrawString(prtText , New Font("ＭＳ ゴシック", 12), Brushes.Black, 10, 20)

このように記述しているのですが、なぜか印刷すると"１２３４５"まで印字されるのですが、最後の2桁が切れてしまいます。
また、この後に印刷する項目の内容が正しく印字されませんでした。

原因が全く分からないので、どなたかお力を貸してください。
よろしくお願いします。

> 作成したセットアップより、異なる3台のパソコンにインストールを行ったのですが、1台だけどうしても文字が途中で切れてしまう現象が出て困っています。

3台の内1台だけがうまく印字できないなら、その1台が他のPCとどこが違うのかを普通は調べるかと
思うのですが？

又、表示なら問題ないのか？ 印刷プレビュー上ならどうなのかとか？ prtText = "１２３４５６７"
で印刷したらどうなるとか？
原因が全く分からない などと言う前に調べる事がいくらでもあるかと思いますが、その辺は
すでに調査されているのでしょうか？

質問されるのなら、詳しい環境等を書いて頂き、他の人が再現できるようなコードなりを掲載
されないと、貴方とまったく同じ事を経験した人でないと推測での回答しかできません。

ご連絡ありがとうございます。

> 3台の内1台だけがうまく印字できないなら、その1台が他のPCとどこが違うのかを普通は調べるかと
> 思うのですが？

お客様の端末なので、3台の細かな構成はわかりませんが、3台とも　WindowsXP Pro SP3 のPCです。
基本的には同じ構成になっているようです。

> 又、表示なら問題ないのか？ 印刷プレビュー上ならどうなのかとか？ prtText = "１２３４５６７"
> で印刷したらどうなるとか？
> 原因が全く分からない などと言う前に調べる事がいくらでもあるかと思いますが、その辺は
> すでに調査されているのでしょうか？

プレビューで見ても同じです。
prtText = "１２３４５６７"を印字するようにプログラムを変更して、テストをしていただくように依頼しているのですが、
忙しい等の理由でテストプログラムの実行をしていただけていない状態です。

>
> 質問されるのなら、詳しい環境等を書いて頂き、他の人が再現できるようなコードなりを掲載
> されないと、貴方とまったく同じ事を経験した人でないと推測での回答しかできません。

ご指摘ありがとうございます。
自分達の環境では問題なく動いており、詳しいことがあまりかけなかったので・・・
初めての経験で、同じ会社の人たちが誰もわからなかったので、少しでも情報を頂ければと思い書き込みました。
憶測や、推測でもいいので情報があれば教えていただきたいです。

あくまで推測ですが・・・

画面のDPI設定や、デフォルトで使用するプリンターも同じ設定になって
いないということはありませんか？

画面やプリンターのデフォルトのDPI設定を変更していれば、発生する可
能性は十分にあります。

ご確認ください。

以上。参考まで

ありがとうございます。

> あくまで推測ですが・・・
>
> 画面のDPI設定や、デフォルトで使用するプリンターも同じ設定になって
> いないということはありませんか？
>
> 画面やプリンターのデフォルトのDPI設定を変更していれば、発生する可
> 能性は十分にあります。

確認していただいたところ、他のPCと同じ設定になっているとのことです。

進展というか、インストール先を変更したら印刷できたと連絡がありました。
なぜ、印刷ができたかは不明です。

お客様が別の方に聞いたところによると、「レジストリに問題があるのでは？」
と言われたそうですが、セットアッププロジェクトのテンプレートを利用して
作成しているだけで、レジストリに何かを書き込むようなことはしていません。

聞いてばかりで申し訳ないのですが、何か考えられる問題があるでしょうか？

> 聞いてばかりで申し訳ないのですが、何か考えられる問題があるでしょうか？

　　WinXP SP3 でも、すべてWindowsUpdate は当たっていたのでしょうか？
　　若干でも差異があったのでは？

　　インストール先を変更したら、うまくいった。
　　と言うなら、相性の悪い他のソフトウェアの影響があったのかなかった
　　のか。

　　ドライブ・フォルダのセキュリティーに差異があったのでは？としか、
　　思えない。

※　ＨＤＤをデッドコピーして作ったのならいざ知らす。
　　いくら同じ設定でも、100%同じ状態には、なかなかにならない。
　　WindowsUpdateで失敗して差異が発生するなんてことは簡単に起きます。

※　私も同一設定のＰＣを、10台とか作る作業をよく行いますが、大抵は、
　　１〜２台、サービスパックを当てるのに失敗したら、WindowsUpdateで
　　なぜか失敗してしまうモジュールが必ずありました。
　　同じ手順で設定作業を行っても。です・・・
　　３台中１台なんて、確率は高い方かもしれませんが、あるのは当たり前
　　と言うレベル。
　　厄介なら、再度ＯＳから入れなおしてみれば、もう少し明確になるかと
　　思います。

以上。

とりあえず、解決しました。

まず、訂正からありまして、
３台とも、WindowsXP Proではなく、正常に印字されないPCはWindows7 Pro でした。

原因は、インストール後に「互換モード（WindoesXP SP3）」で実行するように設定されていた（最初のインストールの後にお客様が設定した）のが原因でした。

この設定をした後、システムのアンインストールしても、レジストリが残っているようで、再インストール後のプロパティ画面では互換モードにはなっていないが、レジストリで引っかかっていました。

なぜ、互換モードだとこのような現象になるかはわかってはいませんが、これを解除したら正しく印字されました。

引き続き、確認は行う形になりますが、原因は特定できたと思います。

いろいろとご協力いただき、ありがとうございました。

> まず、訂正からありまして、
> ３台とも、WindowsXP Proではなく、正常に印字されないPCはWindows7 Pro でした。

　　やはり『差』はあったのですネ！
　　やれやれ・・・

以上。