如何将窗体上绘制的的曲线用打印机打印出来？

Question

我做了一个能够显示一些数据变化的曲线的程序，用的是在窗体上画线的函数。我现在想把这个画出来的曲线打印出来，请问各位高手怎么才能做到？

Answer 1

直接打印窗口就行了!!Form1.PrintForm

Answer 2

添加dlgCommonDialog控件
设置Form1.AutoDraw=True    On Error Resume Next
    With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            Printer.PaintPicture Form1.Image 
            Printer.EndDoc
        End If
    End With