C# と VB.NET の質問掲示板

おせわになります。じいおいといいます。
どうしても分からないので、教えていただければ幸いです。開発環境はWindowsXPsp3のVB2008です。

プリンタでは、出力できるのに、印刷プレビューではちゃんと表示しません。
していることは、PrintDocumentのPrintPageにおいて
Graphics.DrawLinesで10000点以上の連続線を書かせているだけです。

御教授お願いいたします。

じいおいです。書いたコードです。


Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click

  Dim pdlg As New PrintDialog()
  pdlg.Document = PrintDocument1
  pdlg.ShowDialog()

  Dim ppd As PrintPreviewDialog()
  ppd.Document = PrintDocument1
  ppd.ShowDialog()

End Sub

Privete Sub PrintDocument1_PrintPage(ByVal sender As Object,ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
  
  Dim g = e.Graphics
  Dim w = g.VisibleClipBounds.Width
  Dim h = g.VisibleClipBounds.Height

  Dim c = 10000I
  Dim p(c) As PointF
  For i = 0 To c
    p(i) = New PointF(w / c * i,h / c * i)
  Next

  g.DrawLines(Pens.Aqua,p)

End Sub

魔界の仮面弁士 さん、早速の返答ありがとうございます。

> これって、実際のコードでは無いですよね。
> 変数宣言時の [New] が抜けて、配列宣言になってしまっていたり、
> Private もスペルミスしていて、このままでは実行できません。
もうしわけありません。手入力して確認が甘かったです。


> さらに言えば、変数 c が 8124 以下であればプレビューされましたが、
> c = 8125 以上になると、DrawLines 以降の描画処理が行われませんでした。
> http://objectmix.com/dotnet/101440-drawlines-drawpolygon-bug.html
> 
> 
> (対策案 1) DrawLines を DrawLine に切り替えて対応する。
> 
> 　For i = 1 To c
> 　　g.DrawLine(Pens.Aqua, p(i - 1), p(i))
> 　Next
> 
> 
> (対策案 2) 一度に描画する個数を減らして対応する。
> 
> 　Dim p1 = p.Where(Function(d, i) i < 4000)
> 　g.DrawLines(Pens.Aqua, p1.ToArray())
> 
> 　Dim p2 = p.Where(Function(d, i) 4000 <= i AndAlso i < 8000)
> 　g.DrawLines(Pens.Aqua, p2.ToArray())
> 
> 　Dim p3 = p.Where(Function(d, i) 8000 <= i)
> 　g.DrawLines(Pens.Aqua, p3.ToArray())

チャートを描画するソフトでして、点数が多いときには何万点にもなるので、DrawLineですと描画に、より時間が掛かってしまいます。
代案2の書き方は、初めて見ました。直感的に分かり易いですね。勉強になります。もしかしてLINQ？

しかしこの現象は、プレビューの仕様なのでしょうか？どうしようもないのでしょう？