折れ線グラフの幅を太くして印刷するには

解決

vbex 2013-10-26 17:17:17 No: 148241

環境は、Windows8,Visual Basic 2010 Expressです。
Chartを使っております。
プロパティで、チャートの種類を折れ線（Line）に設定しています。

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Chart1.Series("Series1").Points.AddY(10)
        Chart1.Series("Series1").Points.AddY(50)
        Chart1.Series("Series1").Points.AddY(30)
        Chart1.Series("Series1").Points.AddY(40)
        Chart1.Series("Series1").Points.AddY(60)

Chart1.Series("Series1").BorderWidth = 10

End Sub

でフォームの折れ線の幅は太くなります。

しかし、ボタンを貼り付けて

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Chart1.Printing.PrintPreview()
    End Sub

を実行すると、折れ線の太さは太くなっていません。実際に印刷しても
元のまま（BoderWidthを設定しないときと同じ）になります。

折れ線を太く印刷するにはどうすればよいでしょうか。
ご教示の程、お願いします。

オショウ 2013-10-27 20:04:23 No: 148242

.NET版のChartは使ったことが無いので・・・

ttp://hanatyan.sakura.ne.jp/dotnet/mschart2.htm

ここに、.NETでOCX版のChartを貼ったケースの情報があります。
完全互換なら、この方法が使えるのでは・・・と思います。

お試しください。

以上。参考まで

vbex 2013-10-28 03:10:52 No: 148243

オショウ様

ご回答ありがとうございます。
教えていただいたURLを見ましたが
使用しているChartにはPenプロパティが
見当たらずできませんでした。
http://hanatyan.sakura.ne.jp/dotnet/chartframe.htm
のページにChartのグラフを保存する方法があり
この方法で保存すると線も太く保存されました。
印刷も太く印刷されました。
Chart自身で同様の印刷ができるかをもう少し
調べてみます。

vbex 2013-11-10 17:12:02 No: 148244

印刷を次のようにすれば、折れ線を太く印刷することが出来ました。

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

        'PrintDocumentオブジェクトの作成
        Dim pd As New PrintDocument

'イベントハンドラの追加
AddHandler pd.PrintPage, AddressOf pd_PrintPage

        Dim ppd As New PrintPreviewDialog
        'PrintDocumentを設定
        ppd.Document = pd

'ダイアログを表示する
ppd.ShowDialog()

End Sub

Private Sub pd_PrintPage(ByVal sender As Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs)

        'グラフをメモリにロード
        Dim MemStm As New MemoryStream()
        Chart1.SaveImage(MemStm, ImageFormat.Bmp)

'イメージオブェクにコピー
Dim Img As Image = Image.FromStream(MemStm)

e.Graphics.DrawImage(Img, e.MarginBounds)

'次ページなし
e.HasMorePages = False

        'イメージオブジェクトを解放
        Img.Dispose()
    End Sub

解決とさせていただきます。