'假设C盘有个a.txt文件 示例代码如下:Private Sub Form_Click() Open "c:\a.txt" For Input As #1 Do While Not EOF(1) Line Input #1, b Label1.Caption = Label1.Caption b Loop Close #1End Sub
Me.PrintForm加上就可以了!试试吧!