Question

vb 实时错误52

我的代码没问题吧，为什么只能循环打印到第十个就报实时错误 52 文件名或号码错误呢
Dim filehandle As Integer
Dim labelstring As String
Dim i As Integer
For i = 1 To 12
labelstring = "^XA^LH1O,10^FS" & _
"^LL900^FS^FO40,-1300^ASN,18,10^FDLast Repair Location:^FS^XZ"
filehandle = FreeFile

Open "LPT1" For Output As #filehandle
Print #filehandle, labelstring
Close #filehandle
Next i
急，有知道的吗，急需解决

Answer 1

频繁启动并口打印机？还是让它一口气连续工作好了，试试：
Dim filehandle As Integer
Dim labelstring As String
Dim i As Integer
filehandle = FreeFile
Open "LPT1" For Output As #filehandle
For i = 1 To 12
labelstring = "^XA^LH1O,10^FS" & _
"^LL900^FS^FO40,-1300^ASN,18,10^FDLast Repair Location:^FS^XZ"
Print #filehandle, labelstring
Next i
Close #filehandle