*** 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