７．画像を拡大・縮小して印刷及びファイルから直接読み込み印刷(07_Pri_07)　(旧、SampleNo.059)

１．PictureBoxに表示されているImage(画像)を印刷 ２．PictureBoxに表示されているImage(画像)を拡大して印刷 ３．PictureBoxに表示されているImage(画像)を縮小して印刷 ４．ファイルから直接読み込んでImage(画像)を印刷 ５．上記プログラムの共通部分及び起動時の設定 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Button1 / Button2 / Button3 / Button4 / PictureBox1 / PrintDocument1 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．PictureBoxに表示されているImage(画像)を印刷

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     sNo = 0     PrintDocument1.Print() End Sub

２．PictureBoxに表示されているImage(画像)を拡大して印刷

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click     sNo = 1     PrintDocument1.Print() End Sub

３．PictureBoxに表示されているImage(画像)を縮小して印刷

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click     sNo = 2     PrintDocument1.Print() End Sub

４．ファイルから直接読み込んでImage(画像)を印刷

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click     sNo = 3     PrintDocument1.Print() End Sub

５．上記プログラムの共通部分及び起動時の設定

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 'PictureBoxに表示されているImageを印刷     Dim picWidth As Integer = PictureBox1.Width     Dim picHeight As Integer = PictureBox1.Height     Select Case sNo         Case 0             '50,100 ピクセルの位置にPictureBoxと同じサイズで印刷             e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight)         Case 1             '50,100 ピクセルの位置に1.5 倍に拡大して印刷             picWidth = CInt(picWidth * 1.5)             picHeight = CInt(picHeight * 1.5)             e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight)         Case 2             '50,100 ピクセルの位置に50% に縮小して印刷             picWidth = CInt(picWidth * 0.5)             picHeight = CInt(picHeight * 0.5)             e.Graphics.DrawImage(PictureBox1.Image, 50, 100, picWidth, picHeight)         Case 3             Try                 '50,100 ピクセルの位置にファイルから読み込んで印刷                 Using myPic As New Bitmap("..\..\..\data_pic\test.jpg")                     e.Graphics.DrawImage(myPic, 50, 100)                 End Using             Catch ex As Exception                 MessageBox.Show(ex.Message)             End Try     End Select End Sub Private sNo As Integer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '画像ファイルを読み込み表示(ファイルのサイズで)     '表示する画像のサイズに合わせてPictureBoxを表示します     PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize     Try         '画像ファイルを読み込みPictureBoxに表示         PictureBox1.Image = System.Drawing.Image.FromFile("..\..\..\data_pic\test.jpg")     Catch ex As Exception         MessageBox.Show(ex.Message)     End Try End Sub

６．

検索キーワード及びサンプルコードの別名(機能名)

１．PictureBoxに表示されているImage(画像)を印刷　　２．PictureBoxに表示されているImage(画像)を拡大して印刷　　３．PictureBoxに表示されているImage(画像)を縮小して印刷 ４．ファイルから直接読み込んでImage(画像)を印刷　　５．画像ファイルを読み込み画像のサイズでPictureBoxに表示