http://forum.programacaobrasil.com/t2677-impressao-duplex-hp1-Crie um segundo arquivo de texto chamado Hpprint.txt que contém estas linhas:
DEVICE=HP LaserJet IIID
OUTPUT=LPT2:
ORIENTATION= 0
PAPERSIZE=1
DEFAULTSOURCE=7
DUPLEX=2
2-Crie um prg chamado Runrpt.prg e digite o seguinte código:
USE Myreport.frx IN 0 && Open the FRX as a table
LOCATE FOR Objtype = 1 AND Objcode = 53 && find the record that holds
** the printer information. For more information on the Table Structure
** of an .FRX file, see 'Table Structures of Table Files' in Help.
REPLACE Tag WITH "" && Remove any Printer codes that may be stored in
** the Tag memo
REPLACE Tag2 WITH "" && Remove any Printer codes that may be stored in
** the Tag2 memo
APPEND MEMO Expr FROM Hpprint.txt OVERWRITE && Replace any printer
** setting already there with the HP IIID Settings
USE IN SELECT("MyReporter")&& Close Myreport.frx
SELECT("Tabela") && Aqui é para voltar a tabela que você usa no reporter
SET PRINTER TO NAME 'HP LaserJet'
REPORT FORM Myreport TO PRINT && Send the report to the
** HP IIID printer using the printer attributes specified in the
** Expr memo field.