| 印刷プレビューのダイアログボックスを表示及び表示設定色々(4個) (SNo.055) １．印刷プレビューを表示 ２．印刷プレビューのダイアログボックスの表示位置の設定 ３．印刷プレビューのダイアログボックスの表示サイズの設定 ４．印刷プレビューの表示倍率を指定 |
|
| 使用コントロール | Button1 Button2 PrintPreviewDialog1 PrintDocument1 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．印刷プレビューを表示
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '印刷プレビューのダイアログボックスを表示 PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub |
|
| ２．印刷プレビューのダイアログボックスの表示位置の設定 ３．印刷プレビューのダイアログボックスの表示サイズの設定 ４．印刷プレビューの表示倍率を指定 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click '印刷プレビューのダイアログボックスの表示位置と大きさを設定 PrintPreviewDialog1.Document = PrintDocument1 '★表示位置を設定 PrintPreviewDialog1.StartPosition = FormStartPosition.Manual PrintPreviewDialog1.Location = New Point(400, 10) '★表示するダイアログの大きさを設定する PrintPreviewDialog1.Size = New Size(600, 700) '★印刷プレビューの表示倍率を指定 PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0 PrintPreviewDialog1.ShowDialog() End Sub |
|
| 上記コードをテストする場合下記テストコードで印刷物をご用意下さい。 '★★★★★★★★ 以下は SNo.054 と同じです。 ★★★★★★★★★★★★★★★★★ Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage '印刷位置をmm単位で指定しての簡単なテキストの印刷 'テキストボックスの内容を印刷 Dim g As Graphics = e.Graphics 'ミリメートルを長さの単位に指定します。 g.PageUnit = GraphicsUnit.Millimeter 'テキストボックスの内容を印刷する場合 g.DrawString(TextBox1.Text, _ New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, 0, 0) End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'テキストファイルを丸ごと読み込みテキストボックスに表示 TextBox1.Clear() 'テキストファイルを現在のエンコード（シフトJIS）で開く Dim sr As New System.IO.StreamReader("..\..\test.txt", System.Text.Encoding.Default) 'テキストボックスに読込み表示 TextBox1.Text = sr.ReadToEnd 'ストリームを閉じ、システム リソースを解放 sr.Close() End Sub |
|
2004/05/10
2005/09/25
VBレスキュー(花ちゃん)
VB.NET2003 VB2005