send TextFile to Printer...

[VBFOXDEV35]

Hello all. I am trying to send a text file which is created in code to the printer. I have tried to use the report form XXX to Printer/File and it is not working for me. Is there a command that can just take a text file and send it strait to the printer without useing report form, adobe, etc. The text file I have is not Post script so distiller is out, and the following code is to dam slow because when I create the report form, I am over 40+ pages:
IF FILE (strDir + "\fqcm.txt&quot
USE strTables + "\tblreport.dbf" EXCLUSIVE
ZAP
GO TOP
APPEND BLANK
APPEND MEMO comments FROM fqcm.txt && Add contents of text file
CLOSE DATABASES
SET PRINTER TO NAME "Acrobat PDFWriter"
SETPDFFILE(V1PDFFILE)
ACR = CreateObject("AcroExch.App&quot
AV1 = CreateObject("AcroExch.AVDoc&quot
REPORT FORM myreport TO PRINTER
ENDIF
AV1.Open(ALLTRIM(V1PDFFILE), "Report&quot
ACR.Show

The only other alternative I can think of is using a Word Object and bring in the text file and format it in code. Any suggestions??? I am trying to optomize my speed for this typical report. Thanks all for your help.

Arty

 

[jimstarr]

Hi Arty,

Look at the TYPE command.

Jim

 

[VBFOXDEV35]

Jim, that worked great, thanks. At times it is the little things one forgets. But here is a catch, how to get it to be landscape???

Arty

 

[VBFOXDEV35]

Jim, sorry, without using the prompt command. I already set the default printer in another location in my program.

 

[jimstarr]

Can't you reset the printer before the TYPE?

Jim