テキスト幅がミリメートルで正しく表示されないvb6

Question

私は画像ボックスを持っていて、その中に内容を印刷しています。私はミリメートル単位のテキストの正確なテキスト幅を知りたい。しかし、私は間違った価値を得る。ここで私はそれが48ミリメートル ある紙にプリントアウトして測定したときに私のコード

me.scalemode = vbmillimeters 
picturebox.scalemode = vbmillimeters 

picturebox.fontname = "Arial" 
picturebox.fontsize = 12 
debug.print textwidth("AB.C.D.E. FGHIJKLMN") 

ですが、それは32.97ミリメートル

が間違っている私を助けてください示しています。事前に おかげ

Answer 1

あなたは、ピクチャボックスに印刷されたテキストの幅、使用する必要がある場合：

PictureBox.textwidth("AB.C.D.E. FGHIJKLMN")

あなたが実際にやっている：textwidth("AB.C.D.E. FGHIJKLMN")は、フォームに印刷された同じテキストを（mesuringされますMe）。

次のように行うと、以下のエラーが発生しやすい次のようになります。

Dim TextWidth as Single 
With PictureBox 
    .ScaleMode = vbMillimeters 
    .FontName = "Arial" 
    .FontSize = 12 
    TextWidth = .TextWidth("AB.C.D.E. FGHIJKLMN") 
End With 

ので、あなたはその後、紙への切り替えをしている場合、あなたも簡単にコンテキストを切り替えることができます

With SelectedPrinter....