Boa tarde Lugaqb.
Nada disso. Em primeiro lugar a sua impressora tem que ser uma impressora laser com capacidade para imprimir frente/verso. Nesta opção, ela imprime a frente do papel, ejeta-o, recolhe ele novamente invertendo o lado, imprime o verso e finalmente ejeta o papel para a bandeja. Para isto, o programa precisa setar a impressora na modalidade frente/verso, caso contrario ela imprimirá somente na frente do papel.
Para usar esta facilidade, seu programa deverá, apos o comando INIT PRINTSYS, colocar os comandos SELECT PRINTER mPrinter ORIENTATION PRINTER_ORIENT_LANDSCAPE ou SELECT PRINTER mPrinter ORIENTATION PRINTER_ORIENT_PORTRAIT. para os casos em que seu relatÃrio seja no formato landscape ou portrait,
Para desligar a opção de duplex basta colocar SET DUPLEX OFF antes do RELEASE PRINTSYS.
Veja o exemplo abaixo
Abs
INIT PRINTSYS
SET THUMBNAILS ON
IF form_P410.combo_printer.ItemCount=0 .OR. ;
form_P410.combo_printer.Value<=0 .OR. ;
form_P410.combo_printer.Value>form_P410.combo_printer.ItemCount
MSGSTOP("Não existem impressoras instaladas","Erro")
release printsys
RETURN nil
ENDIF
IF lpreview
SELECT PRINTER form_P410.combo_printer.Item(form_P410.combo_printer.Value) PREVIEW
ELSE
SELECT PRINTER form_P410.combo_printer.Item(form_P410.combo_printer.Value)
ENDIF
RDEFFONT() // define as fontes disponiveis
select font "F10T" // Times 10
select pen "p0"
START DOC NAME "Emissão de contra cheques de Funcionarios"
IF WSI_TP_CCHE = "1" .OR. WSI_TP_CCHE = "3" .OR. WSI_TP_CCHE = "6"
set duplex vertical
ENDIF
Set Page orientation DMORIENT_LANDSCAPE papersize DMPAPER_A4
DO P410_EMITE_CONTRA_CHEQUE
END DOC
set page orientation DMORIENT_PORTRAIT papersize DMPAPER_A4 font "F12T"
set duplex off
RELEASE PRINTSYS