>lc_Printer_Name = ALLTRIM(GETPRINTER()) >lc_File_Contents = FILETOSTR(lc_Source_File_Spec) >ln_Chars = STRTOFILE( lc_File_Contents , lc_Printer_Name , .T. ) >>
SET PROC TO DIRPRTCLASS ADDITIVE oPrt = CREATEOBJ('DirectPrintOutput') WITH oPrt .PrinterOpen(lc_Printer_Name) .DocOpen() .DocWrite(lc_File_Contents) && you can have several .DocWrite() lines to merge into a spool file .DocClose() ENDWITH OR WITH oPrt .PrinterOpen(lc_Printer_Name) .SpoolFile(lc_Source_File_Spec) && add <b>, .T. </b> before closing ) to delete after print ENDWITHYou also need ClsHeap, also available in the Files Section. Documentation for both classes in in the header contents of the source code, so be sure to read the code.