QuickBasic printer problem 
Author Message
 QuickBasic printer problem

I use this at times. To use it say:

        IF EPRINT("stuff to print "+A$+B$+" more stuff",1) THEN
CCA:            PRINT "printer error, press enter"
                WHILE INKEY$ >< CHR$(13) : WEND
                RETURN
                END IF
        FOR F1 = 1 TO XN
                IF EPRINT(X$(F1),1) GOTO CCA
                NEXT F1
        J       = EPRINT(CHR$(12),0)
        RETURN

'
       DEFINT A-Z
'
       FUNCTION EPRINT(A$,F)
'
       PASS    = 0
       EPRINT  = 1
ECB:   ON LOCAL ERROR GOTO ERRA
       SELECT CASE F
               CASE 0
                       PRINT# 113,A$;
               CASE 1
                       PRINT# 113,A$
               END SELECT
       EPRINT  = 0
ECC:   EXIT FUNCTION
'
ECA:   IF PASS > 0 THEN
               CLOSE 113
               EXIT FUNCTION
               END IF
       PASS    = 1
       ON LOCAL ERROR GOTO ERRB
       OPEN "LPT1:BIN" FOR OUTPUT AS 113
       WIDTH #113,255
       GOTO ECB
'
ERRA:  RESUME ECA
ERRB:  RESUME ECC
'
       END FUNCTION
'
'   UPDATED: 09-30-94    [ID]:DGM9UWA9UWAJAT
'   UPDATED: 11-23-94    [ID]:DGMBNWABNWAJRh



Tue, 18 Aug 1998 03:00:00 GMT  
 QuickBasic printer problem
I'm using QuickBasic to do some automated testing and would like to
get/generate a routine to check if a printer on lpt1 is online.

The Microsoft QuickBawsic Bible (by the Waite Group) gives an example
by MicroHelp called LptStat.

Any help or suggestions would be appreciated.  Thanks, in advance.

Neal Miyake



Tue, 18 Aug 1998 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Adressing Printer Port Registers in QuickBASIC

2. Graphic Printer Driver with QuickBasic and Dos

3. MS QuickBasic and HP 870C Printer

4. QuickBasic and HP 870C Printer

5. Printer time-out in QuickBasic 4.5

6. Printer drivers in quickbasic

7. converting quickbasic code to ascii, or vb, or anything besides quickbasic

8. Problem setting the active printer of Word 97 without changing the Windows default printer

9. problems printing on a zebra printer with printer.print

10. Printer.line and printer.fillstyle problem

11. Problems with Printer.Line and Printer.Print methods

12. Printer.Font.Name and Printer.Font.Size problems with HP LaserJets

 

 
Powered by phpBB® Forum Software