画像を用紙いっぱいに印刷
　
　目的

指定された画像を用紙全体に引き伸ばして印刷します。

　ポイント

Printer オブジェクトの PaintPicture メソッドを使用します。 画像の読み込みは LoadPicture 関数を使用します。読み込み可能な画像には ビットマップ ファイル (.BMP)、アイコン ファイル (.ICO)、メタファイル (.WMF)、GIF ファイル、JPEG ファイル (.JPG) などがあります。

　
　サンプルコード

Option Explicit

Private Sub cmdPrint_Click()
'// 画像を用紙いっぱいに印刷

    Dim strFilename As String
    
    '印刷対象の画像を指定
    strFilename = "C:\Windows\花見.bmp"
    
    '出力画像、出力位置、サイズを指定して印刷する
    '構文：object.PaintPicture picture, x, y, width, height
    Printer.PaintPicture LoadPicture(strFilename), 0, 0, _
                         Printer.ScaleWidth, Printer.ScaleHeight
    
    Printer.EndDoc '--出力
    
End Sub

ソースのダウンロード