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.

I'm Confucius because the printer was using the Epson-BA-T500 full cut and it was working good, I rally dont know what is going on, Because I verify if was drivers corruption and update the drivers, change the windows box and install everything from zero and still the same issue, I try to Google it but there's mush info, do you guys have any. Epson POS and Discproducer Products Technical Information. BA-T500 Series Product. Collapse All; Expand All. Windows Printer Driver.

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.

Igri dlya portativnogo dvd release. Over 400 Real Portable Apps (up to 9 channels, 20 locale packs, 40 sub-apps) Over 800 Million Downloads Free, Legal, Safe, and Fully Portable No Shovelware. No Bundleware.

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.