ＶＢ６．０からＶＢ２００５に変換挑戦中のＳＵＺＵＫＩです
連続投稿で申し訳ありませんが、また壁にぶつかったので
よろしくお願いします
問題はＢＭＰファイルの印刷です
（ＶＢ２００５の正規の印刷の仕方に戸惑っている自分がいるのですが。。。）

同じように印刷しているイメージなのですが
ＶＢ２００５の印刷は拡大されて印刷されてしまいます

VB6.0

Dim x As Picture
Set x = LoadPicture("C:\TEST.bmp")
Printer.PaintPicture x, 7, 10, 63, 43

VB2005
(Printer Compatibility Library 1.0利用)

Dim image1 As Bitmap
image1 = New Bitmap("C:\TEST.bmp", True)
Printer.PaintPicture(image1, 7, 10, 63, 43)

以上です
なぜ拡大するのか理解出来ていません


＊　ＢＭＰサイズ変換ソフトを使ってファイル自体を縮小するか
　　それとも他の印刷の仕方（縮小印刷？）があるのかが知りたいです

＊　ＶＢ２００５　のPrintDocumentを使う方法　
　　お勉強中ですが、それでも制御するのは難しいのではと
　　思い質問させて頂きました

色々　テストを重ねたのですが
拡大するＢＭＰファイルと同じに印刷されるＢＭＰファイルがある事が
判明しました（７つのファイルの内４つはまともに印刷される）
ＶＢ６．０では全てうまく印刷されます
よってＶＢのプログラムの相違もありますが
ＢＭＰファイルの中味にも何か問題がありそうと思って来ました
同じようにファイルを作ったのですがどこかで違っているようです
ＢＭＰファイルの違いを見つけられるソフト等ってあるのでしょうか？
ＢＭＰもモノクロ、１６色、２５６色、２４ビットと増えているのに
気が付きました
ただ、自分のＢＭＰがどの種類か意識して作ったわけでないので
多分モノクロとは思うのですが？
非常にローカルな話になり、ＶＢコードも関係するのか
判断つかなくなって来ました
ここの掲示板でよいかも怪しくなったと思っているのですが
何かあれば、よろしくお願いします

正しく印刷できている画像とそうでない画像とで、
image1.HorizontalResolution / VerticalResolutionに違いがありますか？

> 正しく印刷できている画像とそうでない画像とで、
> image1.HorizontalResolution / VerticalResolutionに違いがありますか？
回答ありがとうございます
違いがありました

正しく印刷されている
HorizontalResolution　＝　９６．０１１９９
VerticalResolution　  ＝　９６．０１１９９

ＶＢ６．０より拡大されて印刷される
HorizontalResolution　＝　７１．９８３６
VerticalResolution　  ＝　７１．９８３６

悲しいかな　これが何を意味するかわからず
違ってはいます
PAINTPICTURE の引数についてお勉強中ですが
ＶＢコードとＢＭＰファイルが微妙に関連しているんですね

bmp形式には水平解像度/垂直解像度のパラメータがあります。
この場合の解像度というのは単位距離あたりを何ピクセルで埋めるかという意味ですが、
旧VBでは（ロードされるタイミングかPaintPictureされるタイミングかは分かりませんが）これが無視され、
現VBでは有効になっていると言うことでしょう。

たとえば96dpiの画像は、96ピクセルを1インチとして描画します。
これが72dpiの画像になると、72ピクセルで1インチとして描画します。
同じ横960ピクセルの画像が、片や10インチとなり、片や13.3...インチとなるわけですね。

PaintPictureの仕様には詳しくないですが、第4・第5引数は描画先のサイズらしいので、
たとえば72dpiの画像を、96dpiの画像の時と同じ横幅で描画するのであれば、
image1.Width / (96 / 72)
という計算でいけるのではないでしょうか。

>> image1.HorizontalResolution / VerticalResolutionに違いがありますか？
> 違いがありました

画像ファイルのプロパティからも確認できるかも。
http://blogs.wankuma.com/myugaru/archive/2008/03/09/126920.aspx



> たとえば96dpiの画像は、96ピクセルを1インチとして描画します。

VB6 の場合、座標の単位系は Printer.ScaleMode プロパティで設定します。
(このプロパティは、Compatibility Library にもあったはず)


既定では、ピクセル単位系ではなく Twips 単位系だったはずですが、今回、
>> Printer.PaintPicture x, 7, 10, 63, 43
のような小さい値が指定されていることは、実際には別の単位系に変更されているのでしょうね。

http://hanatyan.sakura.ne.jp/patio/read.cgi?no=175


まぁ、画像側の解像度(96dpi なのか 72dpi なのか)が原因ということだとすれば、
その割合を単純に乗じてやれば、解決するものと思います。

魔界の仮面弁士さん
回答ありがとうございます
なかなか理解しずらい箇所があるのですが
必ず読破しますので、時間を頂きます

Hongliangさん
アドバイスありがとうございます
なぞが解けてすっきりです
ただ、こちらのＢＭＰファイルの特性でしょうか
image1.width /96*72 = 2566/96*72 = 1924.5
image1.height /96*72 = 3142/96*72 = 2356.5
を代入すると表示されず
Printer.PaintPicture(image1, 7, 10, 63, 43, 0, 0, 約560, 約350)
こんな感じにすると、まあまあ同じかなという感じです
試行錯誤で悔しい所はありますが
目的は達しましたのでありがとうございます
もう少し最適値を追求する予定です
あと、ScaleMode の情報が抜けていました
”4”を採用しています