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

此行打印图片框。

使用通用对话框打印图片框打印空白页

1 个答案: