２．ピクチャーの内容を印刷する

１．ピクチャーボックス上のグラフィックスを印刷する ２． ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API： その他　： 　　　　：

１．ピクチャーボックス上のグラフィックスを印刷する(031)　　2002.04.30　　 修1 2006.12.28

Option Explicit Private Sub Command1_Click() 　　Dim lngHeight　　As Long 　　Dim lngWidth　　 As Long 　　Dim sngHZoomRitu As Single 　　Dim sngWZoomRitu As Single 　　'スケールモードを　　1 twip 単位に 　　Picture1.ScaleMode = vbTwips 　　Printer.ScaleMode = vbTwips 　　'用紙サイズをA4に設定 　　Printer.PaperSize = vbPRPSA4 　　'用紙方向を横向きに設定 　　Printer.Orientation = vbPRORLandscape 　　'実寸で印刷 　　Printer.PaintPicture Picture1.Image, 0, 0 　　Printer.NewPage　　 '改ページ 　　'用紙サイズいっぱいに拡大・縮小して印刷 　　Printer.PaintPicture Picture1.Image, 0, 0, _ 　　　　　　　　　　　　 Printer.Width, Printer.Height 　　Printer.NewPage　　 '改ページ 　　'上記だと縦横比が変化して変な形に拡大・縮小されるので 　　'Imageファイルの寸法を取得 　　lngHeight = Picture1.Height 　　lngWidth = Picture1.Width 　　'拡大・縮小率を計算 　　sngHZoomRitu = Printer.Height / lngHeight 　　sngWZoomRitu = Printer.Width / lngWidth 　　'元のサイズの縦横比で用紙いっぱいに拡大・縮小 　　If sngHZoomRitu < sngWZoomRitu Then 　　　　lngHeight = lngHeight * sngHZoomRitu 　　　　lngWidth = lngWidth * sngHZoomRitu 　　Else 　　　　lngHeight = lngHeight * sngWZoomRitu 　　　　lngWidth = lngWidth * sngWZoomRitu 　　End If 　　'lngWidth, lngHeightを指定すれば好みのサイズで印刷できる 　　Printer.PaintPicture Picture1.Image, 0, 0, lngWidth, lngHeight 　　Printer.NewPage　　 '改ページ 　　'画像ファイルを指定して印刷 　　Printer.PaintPicture LoadPicture("..\hina01.jpg"), 0, 0 　　Printer.EndDoc　　 ' 印刷開始 End Sub Private Sub Form_Load() 　　Picture1.AutoSize = True 　　Picture1.AutoRedraw = True 　　Set Picture1.Picture = LoadPicture("..\hina01.jpg") End Sub 今回はピクチャーの内容を印刷しておりますが、イメージもほぼ同様で印刷できます。 Picture1.ScaleMode = vbTwips　ここの部分はコメントアウトに Picture1.Image, 0, 0　　　　　　　　　 ここは　Image1, 0, 0 に 変更すれば、イメージも同様で印刷できます。 Image コントロールに表示している画像の印刷(4方法)

２．

３．

４．

５．

６．

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

元のサイズの縦横比で用紙いっぱいに拡大・縮小印刷　画像ファイルを印刷　ピクチャーを印刷　画像を印刷　イメージファイルを印刷　イメージを印刷 Image を印刷　Picture を印刷