2014/03/19(Wed) 15:01:01 編集(投稿者)
■No70378 (Curina さん) に返信
用紙の幅、高さ、表示倍率、表示位置を使って計算する必要があります。
表示位置を取得するのがちょっと大変で多分以下のような感じだと思います。
プライベートフィールドに無理やりアクセスしてます。
Dim TypePrev = GetType(PrintPreviewControl)
Dim FieldPos = TypePrev.GetField("position", _
Reflection.BindingFlags.Instance Or _
Reflection.BindingFlags.NonPublic Or _
Reflection.BindingFlags.ExactBinding)
Dim CurPos = CType(FieldPos.GetValue(PrintPreviewControl1), Point)