こんにちわ　よろしくお願いします。

WIN2000PRO　VB6.0SP6 EPSON VP-4200(ドットプリンタ)
連続用紙に印刷をしているのですが、文字がゆがんでしまいます。
単純にサイト内の「指定位置に（文字・罫線）印刷する」を実行してみました。
　　Printer.FontName = "ＭＳ 明朝"
　　Printer.FontSize = 12
　　Locate 5, 11, Right$(Space$(14) & Format$("1230000.89", "#,###.00"), 14)
　　Locate 5, 12, Right$(Space$(14) & Format$("1000.56", "#,###.00"), 14)

以上の内容を繰り返し作業しました。

実際は帳票を印刷しようと思い納品書、請求書と言うようなものを印刷をしたいと思っています。
すべての行では無いです。ある行のみのようです(見た目では…)
特に"0"は目立ちます。よーくみていると、行単位でゆがんでいます。
サイズは１２です。

・Excelで出力してみましたがＯＫでした。
・メモ帳で出力してみましたが"0"が多少ゆがんでいるようでした。
・プリンタのテスト印刷してみましたがＯＫでした。
・他のレーザープリンタではしっかり出ています。

VBがもともと、ドットプリンタの印刷はあまり得意ではないのでしょうか？
何か良い解決策は無いでしょうか？
よろしくお願いします。

本来、ドットインパクトプリンタは、
キャラクタを送りつけて、プリンタ内蔵フォントで
印字することを前提に作られています。

レーザプリンタよりはるかに解像度が小さいのに、
Windowsフォントをビットイメージで送りつけて
画像として印刷していたのでは、ドットインパクトプリンタの
本来の性能は引き出せないでしょう。

sayさん　お返事ありがとうございます。

確かに、レーザーと比べると…と言う感じですね。でも、伝票印字はドットではないと言う方が多くて、何か解決策は無いかと思い、質問しました。
もう少し、いろいろ試して頑張ってみます。

ありがとうございました。

> 本来、ドットインパクトプリンタは、
> キャラクタを送りつけて、プリンタ内蔵フォントで
> 印字することを前提に作られています。
>
> レーザプリンタよりはるかに解像度が小さいのに、
> Windowsフォントをビットイメージで送りつけて
> 画像として印刷していたのでは、ドットインパクトプリンタの
> 本来の性能は引き出せないでしょう。

他のソフトでの印字の場合、問題ないのでしょうか？
たとへば、Excelで印刷した場合とか？
又、どのようにゆがむのでしょうか？
プリンター本体に問題があるのでは。

案外、ヘッドの摺動部分に油を塗ると直る場合もありますが。

花ちゃんさん　ありがとうございます。

Excelで印刷したときは大丈夫でした。
プリンターに問題があると思い、修理と言う形で見てもらいました。
これは、ドットプリンタにある現象で、高速印刷、往復印刷をするとよく見られるみたいです。

一番早い方法は、「往復印刷しない」という設定にすれば解決しますということだったので、設定を変更しましてやりました。

>案外、ヘッドの摺動部分に油を塗ると直る場合もありますが。
そんな方法もあるんですね。それもやってみます。

一応、解決と言うことになりました。

花ちゃんさんありがとうございました。
本当にいいHPで、いつも参考にしています。これからも活用さしていただきますので、頑張ってください。