タイトル : Re^3: PrintPageイベントを発生させる方法 投稿日 : 2008/01/22(Tue) 23:31 投稿者 : 花ちゃん
Private Sub Button1_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles Button1.Click 'mKikan1, mKikan2 集計期間を変えれば、ここから再プレビューしたいですが、 '上手く行かない PrintPage を発生させないです AddPrintDocument() mData = "集計期間を変えれば、ここから再プレビュー" & vbCrLf & _ "したいですが、上手く行かない" mPpc.InvalidatePreview() End Sub 又は Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintPreviewControl1.Document = PrintDocument1 PrintPreviewControl1.InvalidatePreview() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim g As Graphics = e.Graphics g.DrawString(TextBox1.Text, _ New Font("MS Pゴシック", 40), Brushes.Black, 0, 0) End Sub End Class |