vale001
25-02-2002, 09:40
programmando in vb6 come posso sapere se la mia stampante è accesa??? la stampante è locale ed è collegata alla COM1.
il codice che utilizzo per stampare è il seguente:
Dim lFile As Long
lFile = FreeFile()
Open "lpt1:" For Output As #lFile
Print #lFile, "q400"
Print #lFile, "N"
Print #lFile, "B20,20,0,3,2,3,130,B," & Chr(34) & sLongherina & Chr(34)
Print #lFile, "A20," & 190 & ",0,3,1,2,N," & Chr(34) & sCommento & Chr(34)
Print #lFile, "P1"
Close #lFile
il problema si verifica al passaggio dell'istruzione "Close #lFile", infatti se la stampante risulta spenta Vb va in crash...
Aiutoooooooo!! Grazie
il codice che utilizzo per stampare è il seguente:
Dim lFile As Long
lFile = FreeFile()
Open "lpt1:" For Output As #lFile
Print #lFile, "q400"
Print #lFile, "N"
Print #lFile, "B20,20,0,3,2,3,130,B," & Chr(34) & sLongherina & Chr(34)
Print #lFile, "A20," & 190 & ",0,3,1,2,N," & Chr(34) & sCommento & Chr(34)
Print #lFile, "P1"
Close #lFile
il problema si verifica al passaggio dell'istruzione "Close #lFile", infatti se la stampante risulta spenta Vb va in crash...
Aiutoooooooo!! Grazie