共通ダイアログを使用してピクチャボックスを印刷すると空白のページが表示される

Question

共通のダイアログコントロールを使用して、ピクチャボックスの内容を印刷しています。以下は私のコードです：

Private Sub mnuFilePrint_Click() 

    StopPrinting = False 
' Set CancelError is True 
On Error GoTo errhandler 

    cmndlg.PrinterDefault = True 

    ' Set flags 
    cmndlg.Flags = cdlPDReturnDC + cdlPDNoPageNums 
    cmndlg.ShowPrinter 

    pigraph.Picture = picGraph.Image 
    Printer.Print picGraph.Picture 
    Printer.EndDoc 
    Exit Sub 
errhandler: 
    Select Case Err 
    Case 32755 ' Dialog Cancelled 
     MsgBox "you cancelled the dialog box" 
    Case Else 
     MsgBox "Unexpected error. Err " & Err & " : " & Error 
    End Select 

End Sub 

印刷ボタンをクリックすると印刷ダイアログボックスが開き、印刷をクリックします。しかし、私が受け取る用紙は、ページの上部に数字のランダムな文字列（印刷するたびに変わる）を除いて空白です。

誰でもこの問題が発生する理由を知っていますか？私は空白のページを取得すべきではありません。ありがとう。

Answer 1

問題ここでは、ピクチャを印刷するようにということでした、ライン：

pigraph.Picture = picGraph.Image 
Printer.Print picGraph.Picture 

が...このような状況のため正しくありません。

Printer.PaintPicture picGraph.Image, 0, 0 

この行は、このピクチャボックスを印刷します。