プリンタ出力ヘルプの間違い

VB4.0 にてプリンタ出力のフォントの種類と大きさが設定は，ヘルプで書かれている内容では１度目はちゃんと印字されるが２度同じ文章を印字すると設定とは違ったフォントになる．

ヘルプの内容ではうまくいかない．

試行錯誤の結果以下の様にするとうまくいく．

使用したいフォントサイズと違うサイズでプリンターオブジェクトに設定してからもう１度再設定する．

もし使用したいフォントサイズが１０ポイントであれば，

    X = Printer.CurrentX
    Y = Printer.CurrentY
    Printer.Font.Name = フォント名
    '違うサイズにて空印刷
    Printer.Font.Size = 12
    Printer.Print " "
    Printer.CurrentX = X
    Printer.CurrentY = Y

    '使用したいサイズにて印刷
    Printer.Font.Size = 10

参照