PC Toledo

Estou usando a winprint para emissão dos relatórios do sistema. Tudo tem funcionado às mil maravilhas, tanto portrait quanto landscape, simplex e duplex, etc. Porém agora esbarrei num problema que não conseguí resolver. O contra-cheque a emitir, é duplex (frente/verso), entretanto a parte externa (endereçamento) é portrait, enquanto que a parte interna é landscape (2 copias na mesma folha). Portanto a impressão tem que ficar alternado entre portrait e landscape. A definição do formato se dá quando se defive o DOC NAME. Alguém me ajuda? Vejam o código anexo.

Código: Selecionar todos

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

Amigo, o comando Set Page orientation... tem que ser definido antes do comando START PAGE, então você poderá mudar a orientação (PORTRAIT ou LANDSCAPE) sempre que desejar.

Por exemplo:

Código: Selecionar todos

  START DOC NAME "Relatorio"

    SET PAGE  ORIENTATION DMORIENT_PORTRAIT PAPERSIZE DMPAPER_A4

    START PAGE
       @ 10,10 SAY "Modo Retrato" TO PRINT
    END PAGE

    SET PAGE ORIENTATION DMORIENT_LANDSCAPE PAPERSIZE DMPAPER_A4

    START PAGE
       @ 10,10 SAY "Modo Paisagem" TO PRINT
    END PAGE

  END DOC

Abraços,

OBRIGADO TOLEDO, "matou a cobra e mostrou o pau".

Enviado: **04 Mar 2016 11:40**

Meus amigos, seria possível me ensinarem a imprimir frente e verso numa impressora Lexmark Pro900?

Tentei analisar o código postado, pensei que talvez fosse o comando se duplex, tentei usar aqui, mas dá erro.

Poderiam me ajudar?

Enviado: **04 Mar 2016 16:15**

Amigo, os códigos apresentado aqui nesta seção é para MiniGui (HMG), então só vão funcionar se o seu programa foi desenvolvido/compilado com a MiniGui.

Abraços,

Enviado: **04 Mar 2016 16:28**

Infelizmente não sei usar a Minigui (estou precisando aprender, mas ainda não tive tempo).

Em Harbour não existe uma forma de imprimir frente e verso?

PC Toledo

impressão frente/verso

impressão frente/verso

impressão frente/verso

impressão frente/verso

impressão frente/verso

impressão frente/verso

impressão frente/verso