Alibaba.com offers 46 kiosk printer paper holder products. Auto cutter Cutter (Guillotine),full or partial cut Lifetime:cutter 1mln cuts Lifetime:mechanism 100km. This document contains confidential, proprietary information of Seiko Epson. T Optional cut sheet retracting mechanism can be used for the EU-T532/T542 Type 2. The thermal head consists of the head heating elements, the head driver. Movement of the movable cutter blade, full, H by being engaged the shaft,.

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. Transformator tesla na ne555 mp3. 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.