We have old code from a FPD26 system that is still running in our VFP7 app in some places. We also still have leftover reports whose output is generated using ??? and @...Say. To accomplish condensed printing, we incorporated common records from the FPD26 prntcode table that contains many condensed printing codes for older printers and the HP laserjet II codes as well which many laserjet printers accept. Our customers choose a windows printer using getprinter() for the reports and this value is stored in a table that contains the report name and the windows printer that it will be printed to. There is also a combobox that displays the printer types from the prntcode table and the user selects a printer type as well for the older dos reports. The report table is linked to a scaled down version of the prntcode table so that when we print the report, we grab the appropriate codes from the record in the prntcode table and send to the printer using ???. However, this does not work on GDI printers however as they do not have a cpu to render the printjobs so we are slowly converting all reports over to vfp reports using the report designer.

>I want to print adress label to DOS printer by useing smaller font than default one.
>For this reason, I haved used following code block. But I havent got my desired output
>
>What is wrong in this code block. Can you help me
>
>Thanks
>
>
>

>*** DOS PRINT CODE BLOCK
>
>SET PRINTER FONT Arial, 15
>
>cWhereDosPrinter = alltrim("LPT1:")
>
>nFhandle = fcreate(cWhereDosPrinter)
>
>
>SELECT Customer
>SCAN
>    cAdressLabel = Customer.name+CHR(10)+CHR(13)+Customer.adress
>    =FPUTS(nFHandle, cAdressLabel)
>ENDSCAN
>
>