请高手帮帮忙打印这张图片

我这张保存后的图片是好大好大的图片。我要如何将这张图片 打印在用clsPrintDialog设置好的纸张大小（A4/B4/A3/B3/A2/B2等)及纵或横向等格式的图，我要将这张图的全部都打印在一张纸上。我的代码如下
’1先存图
’2打印图
CommonDialog1.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.jpeg|*.jpeg|*.ico|*.ico|*.icon|*.icon"
 CommonDialog1.FileName = ComboXIANLUMING.Text & ComboXINGBIE.Text & left(Text5.Text, InStr(Text5.Text, ".") + 3)
 If List2.ListCount > 0 Then
 CommonDialog1.FileName = ComboXIANLUMING.Text & ComboXINGBIE.Text & List2.Text
 End If
 
 
 
 
 If CommonDialog1.FileName <> "" Then
 
       If Dir(CommonDialog1.FileName) <> "" Then
    
                        Msg = "文件已经存在，是否覆盖？."   ' 定义信息。
                    Style = vbYesNo + vbExclamation + vbDefaultButton2   ' 定义按钮。
                    Title = "提示"   ' 定义标题。
                    Help = "DEMO.HLP"   ' 定义帮助文件。
                    Ctxt = 1000   ' 定义标题
                    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
                    If Response = vbYes Then
                    SavePicture Picture1.Image, CommonDialog1.FileName       '保存图片
                    Else
                      
                    End If
        Else
            SavePicture Picture1.Image, CommonDialog1.FileName       '保存图片
     
     'MsgBox "照片保存成功！"
       End If
 
CommonDialog1.ShowPrinter 'ShowSave      ' 调用保存对话框
Printer.EndDoc
End If