일반 대화 상자를 사용하여 그림 상자를 인쇄하면 빈 페이지가 인쇄됩니다.

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 

인쇄 버튼을 클릭하면 인쇄 대화 상자가 열리고 인쇄물이 나옵니다. 그러나 내가받는 용지는 페이지 위쪽의 숫자가 무작위로 나오는 것을 제외하고는 아무 것도 표시되지 않습니다 (인쇄 할 때마다 바뀝니다).

누구든지이 문제가 발생하는 이유를 알고 계실 것입니다. 나는 빈 페이지를 얻지 못했을 것이다. 감사. ...

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

이 상황에 대한 정확하지 않은 :

Answer 1

문제는 여기에이 PictureBox를, 선을 인쇄하는 것이 었습니다. 이 줄을 다음 줄로 바꾸어야했습니다.

Printer.PaintPicture picGraph.Image, 0, 0 

이 줄은 그림 상자를 인쇄합니다.