Ola amigos

Creio que essa minha dúvida já foi postada por alguém que agora não me lembro.

Seguinte:

Como fazer um tratamento num evento de impressão no exemplo abaixo

 

Open "LPT1:" for output as #1

print #1,"TESTE"

Close #1

 

Acontece que se a impressora estiver desligada, o sistema trava.

Qdo coloco um tratamento de erro tipo

On error Goto ErroPrint,  o sistema nem toma conhecimento..

Espero que alguém me ajude, por favor.

 

Obrigado

Ivo

Ninguém pode me ajudar nisso ??????

??????????????

Cara, a impressão desse modo, fica fora do escopo do windows, teria que ser

um tratamento via DOS, acho eu,....não conheço nada sobre esse assunto.

boa sorte pra voce.

Pois é, Ivo. Quem conhece o DOS leva vantagem

Este drive não responde ao Windows.

Veja:

 

Thank you for your help especially with CON and LPT1 suggestions.

Lance, I thought you said that we cannot open "LPT1" in previous
discussions of LPRINT.

Here is my full test program:

#DEBUG ERROR ON
10 DEFLNG A-Z
20 FUNCTION PBMAIN
30 DIM SETUP(100) AS STRING

210 ON ERROR GOTO 50010
220 CLS
230 CONSOLE SCREEN 25, 80

300 REM READ/BOOT HBASETUO.SET
310 FILENUM = FREEFILE: OPEN "C:HBA6HBASETUP.SET" FOR INPUT AS #FILENUM
320 FOR L = 0 TO 100: LINE INPUT #FILENUM, SETUP(L): NEXT: CLOSE #FILENUM

510 RECORD1$ = "HELLO"
520 RECORD2$ = "GOODBYE"
530 SM = 1 REM ALSO CHANGE TO SM = 2 AND SM = 3 FOR FULL TESTING

1010 IF SM = 1 THEN OPEN "CON" FOR OUTPUT AS #4
1020 IF SM = 2 THEN OPEN "LPT1" FOR OUTPUT AS #4: PRINT #4,SETUP(92);
SETUP(98); REM 92 FOR RESET 98 FOR LANDSCAPE
1030 IF SM = 3 THEN OPEN "C:HBA6FILE.SEQ" FOR OUTPUT AS #4

2010 IF SM = 1 THEN PRINT #4, RECORD1$
2020 IF SM = 2 THEN PRINT #4, RECORD1$
2030 IF SM = 3 THEN PRINT #4, RECORD1$

3010 IF SM = 1 THEN PRINT #4, RECORD2$
3020 IF SM = 2 THEN PRINT #4, RECORD2$
3030 IF SM = 3 THEN PRINT #4, RECORD2$

4010 IF SM = 1 THEN CLOSE #4
4020 IF SM = 2 THEN PRINT #4, SETUP(92):CLOSE #4
4030 IF SM = 3 THEN CLOSE #4

5010 A$ = WAITKEY$

6010 EXIT FUNCTION

HANDLING:
EXIT FUNCTION

50010 PRINT "ERROR NO = "; ERR: PRINT
50020 PRINT "ERROR MESSAGE = "; ERROR$: PRINT
50030 ERRCLEAR: RESUME HANDLING

END FUNCTION

The test program works! I incorporated the print 3 principles
into my regular large program which seem to work fine, but I am
still verifying and testing.

Thanks, Y

500 IF PRTFLG=1 THEN OPEN "LPT1:" FOR OUTPUT AS #2
510 IF PRTFLG=2 THEN INPUT "Enter the file which is to recieve the output: ",A$:OPEN DISK$+A$ FOR OUTPUT AS #2:PRINT
520 INPUT "Enter the file to be typed out: ",FILE$
530 FILE$=DISK$+FILE$
540 OPEN FILE$ FOR INPUT AS #1
550 IF EOF(1) GOTO 610
560 A$=INPUT$(1,#1)
570 IF A$=CHR$(10) GOTO 550
580 PRINT A$;
590 IF PRTFLG THEN PRINT #2,A$;
600 GOTO 550
610 CLOSE:RETURN
1000 END