Printing Directly to LPT1

S

Stewart

I need to print directly to LPT1 for a receipt printer
that I'm trying to program. Can anyone help with the code
for this.

I've used the following code which loops through the table
but it doesn't print.

DoCmd.OpenForm ("Form1"), acFormDS, , , , acHidden

Open "LPT1" For Output As #1

Do
Print #1, Forms!Form1!Date
DoCmd.GoToRecord , , acNext
Loop
Close #1

DoCmd.Close , "Form1"

Any help would be greatly appreciated.

Stewart
 
Top