Private Sub Cmd打印_Click()
    MsgBox "请在打印机中放入A4打印纸...", vbOKOnly, "数据打印"
    Cell1.DoSetPrintPara 1, 9, False
    Cell1.DoSetPrintPara2 100, True, False
    Cell1.DoSetPrintPara3 1, 0
    Cell1.DoSetPrintTitle 0, 0, 10, 3, 3, 2
    Cell1.DoDrawLine 0, 2, 10, Cell1.Rows - 1, 0, 1, 0
    Cell1.DoSetPrintFoot "", "&P   &D", ""
    Cell1.DoPrintPreview False
End Sub


