Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 07/12/2004 09:00 hs
Bom, tendo em vista a incapacidade do objeto printer de verificar o status da impressora, e a facilidade que o clipper tem de faze-lo, fiz um programinha em clipper verifica a porta, então minha idéia é ao imprimir direto para a porta, antes de abrir o "OPEN LPT1 AS #1", chamo este executavel, ele checa a porta, e dependendo do status da mesma, gera um arquivo em uma pasta, dai o vb verifica qual o arquivo gerado, e imprime ou avisa ao usuário. O problema é que não estou conseguindo, executa-lo, qual seria a forma correta ? |
|
|
|
|
|
|
|
Postada em 07/12/2004 10:12 hs
|
|
|
|
|
|
Postada em 07/12/2004 13:39 hs
eu uso esse codigo abaixo para verificar o status da impressora Public Function SelectPrinter(ByVal Nome As String) As Boolean
Dim X As Printer
For Each X In Printers
If UCase(Mid(X.DeviceName, 1, 8)) = UCase(Mid(Nome, 1, 8)) Then
Set Printer = X
SelectPrinter = True
Exit For
End If
Next End Function If Not SelectPrinter("EPSON") Then
MsgBox "Impressora Desligada ou Não Instalada", vbInformation, ROTULO exit sub
End If
costuma funcionar quando a impressora está desligada Roberto |
|
|
|
|
