PRINTER.SCALEWIDTHとHEIGHTについて

Question

ＶＢ６で使用していたPRINTER.SCALEWIDTHとHEIGHTについて

教えていただきたいのですが、

ＶＢ２００５では、

            ＷＫScaleWidth = PrintDialog1.Document.DefaultPageSettings.PaperSize.Width
            ＷＫScaleHeight = PrintDialog1.Document.DefaultPageSettings.PaperSize.Height

で値を求めた後、後続の処理を実行したのですが、

ＶＢ６．０の値と違うため、

うまく動作しません。

ちなみに以下のような値が返却されます。

【ＶＢ６】
　ﾌﾟﾘﾝﾀ：EPSON PM-970C
　ﾌｫﾝﾄ：MS 明朝　ﾌｫﾝﾄｻｲｽﾞ：10　ｻｲｽﾞ：A4 210X297mm　印刷の向き：縦

　　Printer.ScaleWidth　･･･　96.4
　　Printer.ScaleHeight　･･･　66.15

　プリンタ：NEC MultiWriter 210S
　ﾌｫﾝﾄ：MS 明朝　ﾌｫﾝﾄｻｲｽﾞ：10　ｻｲｽﾞ：A4　印刷の向き：縦

　　Printer.ScaleWidth　･･･　94.4
　　Printer.ScaleHeight　･･･　67.77917

----------------------------------------------------------------------------------------------------
【．ＮＥＴ】
　ﾌﾟﾘﾝﾀ：EPSON PM-970C
　ﾌｫﾝﾄ：MS 明朝　ﾌｫﾝﾄｻｲｽﾞ：10　ｻｲｽﾞ：A4 210X297mm　印刷の向き：縦

　　ＷＫScaleWidth　･･･　827
　　ＷＫScaleHeight　･･･　1169

　プリンタ：NEC MultiWriter 210S
　ﾌｫﾝﾄ：MS 明朝　ﾌｫﾝﾄｻｲｽﾞ：10　ｻｲｽﾞ：A4　印刷の向き：縦

　　ＷＫScaleWidth　･･･　827
　　ＷＫScaleHeight　･･･　1169

 

＜後続の処理では、Printer.ScaleHeightを上記で求めた値にしている ＞

If LwkPrnTate > (Printer.ScaleHeight - 3) Then
                Printer.NewPage                         '改ﾍﾟｰｼﾞ
                Printer.EndDoc
                Printer.ScaleMode = 4
                Printer.FontSize = 10
                LwkPrnTate = 7
                LwkPrnYoko = 0
                LwkPage = LwkPage + 1
                Call GPrnMeisaiRyoMidasiProc(LwkPage)   '見出し
End If

何か設定の仕方がまずいのでしょうか？

ＶＢ２００５の値からＶＢ６．０の値にあわせる方法がありますでしょうか？

また、ＶＢ６．０の方は、PRINTER.SCALEMODEや

プリンターの機種によってPRINTER.SCLEWIDTHやHEIGHTがかわるようですが、

ＶＢ２００５ではＷＫScaleWidthやＷＫScaleHeightは同じ値が返却されます。

何かご存知でしたら教えてください。

 

Answer 1

PRINTER.SCALEMODEを合わせればよいのでは？

PRINTER.SCALEMODE＝４（キャラクタ）だと合わない気がしますが。。。

Answer 2

 オーツキさん回答ありがとうございます。

PrintDocument1.DefaultPageSettings.PrintableArea.Size.Width

PrintDocument1.DefaultPageSettings.PrintableArea.Size.Height

の方に、欲しかった値が入っていましたので、そちらで試したところうまくいきました。

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