M-T500 Series, Epson M-T500 Series, mt500, High print speed of 150mm/sec max. Support of an Advanced Windows Driver (in conjunction with BA-T500 controller board. MS Access Printer Status. Public Const DRV_NAME_BAT500_NOCUT = 'EPSON BA-T500 No cut' Public Const DRV_NAME_BAT500_FULLCUT = 'EPSON BA-T500 Full cut'.

I have a Point of Sale Application that I made in Access. It works fine.

Except for the printing. Here's my question.I have a number of printers, whenever a report is sent to a printer I need to know before the report prints if the printer is disabled, (Check Status) If it is I need to send that report to another printer. At this point Access just ignores the whole thing if the printer isn't on, out of paper, offline whatever. I know I need API with this.I have some code from Epson that was written for VB.but I'm at loss.I'm using Epson TMT88 III Thermal Printers.

Been There, Done That.The problem is, it checks the que. The Que only returns Paused and Printing, so if the printer isn't connected I still get 'Printing'. I have this from Epson. OK I pasted my above code into a module.called it module2 Then I added this at the end of the code. Sub TestPrinterStatus() Dim nHandle As Long, nHandle2 As Long, Status As Long OpenPrinterA 'Bar', nHandle nHandle2 BiGetStatus ByVal nHandle, Status Debug.Print nHandle,, nHandle2, Status, ErrMsg(Status) End Sub I then made a button on a form.and added this to the on click event. TestPrinterStatus() Said can't find Function. I'm sure I did it wrong.I'm new at this game!

Any further suggestions will be appreciated. It used to be in the past when I was programming in Basic 7.0 professional you could just read the value of the printer port data at the printer's address. Each printer has a a series of memory locations starting at it's port address that give you the status of the printer Typically H0378 thru H037F. What I did was figure out how to read the STATUS port of the printer and then I removed the paper from the printer to see what the status changed to. I don't know if VBA can read a port like I used to in regular basic or even VB. There must be a way but I don't remember. Quite often printer manuals will give examples of the STATUS values and how to read them directly from the port.

Actually, for parallel printers I found the status port to be the same as well as paper out conditions. OK.further down the rope, both post proved interesting. The printers will be either seriel or they will connected via a hub over the network. Does this matter or change things? A lot of the code seemed interesting but how do I incorporate this into Access on a command button which I willbe pushing to run the reports. This is what I have so far and it works, as long as everything is perfect!

Private Sub Command148_Click() On Error Resume Next DoCmd.OpenReport 'rptBar', acViewPrint,, '[SalesID] = ' & Me.SalesID DoCmd.OpenReport 'rptKitchenHot', acViewPrint,, '[SalesID] = ' & Me.SalesID DoCmd.Close acForm, 'Sales' If Err = 2501 Then Err.Clear End Sub Thanks DS TR3. I think there is code in that last that can do what you want. Cut and paste. But i don't know if it still works. Its old stuff.

You can get the printer port from your prior code All quoted from prior thread: You need VBINT.DLL and VBINT.BAS. Go here: ' bad site now.found at and download vbint.zip Load VBINT.bas as a module.

Function GetPrinterStatus(PrinterPo rt as long) as Long DIM Regs as vbregs Dim Rtn as integer rtn=printerport-1 ' mov dx, CheckLPT; REGS.DX=rtn '0=lpt1,2=lpt2,etc. ' mov al, 0; ' mov ah, 2; regs.ax=2*256+0 ' int 17h; Rtn% = VBInt(&H17, Regs, Regs) GetPrinterStatus=int(regs. Ax/256) End Function. Ok, this is what I have.Now how do I attach this to my command button on a form?

I need to get the results onto a form. Also VBNET.DLL where does this go?

And.you mentioned something about my previous code. What part of it and where does it go. I'm sorry, but like I said, I'm new and this is still beyond me, but I have no choice, I need to get this done. Just a Map Click Command Button Check Printer If Printer is Offline, send to another printer (Cylcle thru in a PreDifined order untill prints or gives a message, The message would be a form, not the MS MsgBox.) If Printer is Ok, Then Print I have a number of reports that are printing at once sometimes one of them doesn't have anything so I did this to ignor it and move on. Private Sub Command148_Click() On Error Resume Next DoCmd.OpenReport 'rptBar', acViewPrint,, '[SalesID] = ' & Me.SalesID DoCmd.OpenReport 'rptKitchenHot', acViewPrint,, '[SalesID] = ' & Me.SalesID DoCmd.Close acForm, 'Sales' If Err = 2501 Then Err.Clear End Sub I had some other code I used but that just really checked the status (Supposedly in the Print Que) but it seems that it checked the status that showed in the 'Printers and Faxs' part of Control Panel. Thanks DS TR3.