choose printer

[clemerson]

Hi,

Does option exist in the fwh to choose the printer that wants to print?

Clemerson

[Enrico Maria Giordano]

Yes, use the TO clause of the PRINT command.

EMG

[clemerson]

EnricoMaria,

like this me yours to do. I wanted to do before the report the user to choose the printer that wants to print:




Clemerson

[Antonio Linares]

Clemerson,

PRINTER oPrn ... FROM USER

[clemerson]

Antonio,

here he gave right:
PRINT oPrn FROM USER NAME "Relatório Fechamento..." Preview

and in this example where would put FROM USER?

REPORT oRpt CAPTION "Clientes" TITLE "Cadastro de Clientes" ;
HEADER "Data: " + DToC( Date() ) + ", Hora: " + Time() ;
FOOTER "Página: " + Str( oRpt:nPage, 3 ) ;
PREVIEW
COLUMN TITLE "Código" DATA clientes->Codigo," "," "
COLUMN TITLE "Nome","Endereco","Telefone" DATA clientes->Nome,clientes->Endereco,clientes->telefone
COLUMN TITLE "Cidade","Bairro","Estado" DATA clientes->Cidade,clientes->Bairro,clientes->Estado
END REPORT
ACTIVATE REPORT oRpt FOR SUBST(Clientes->Nome,1,1)>=De .AND. SUBST(Clientes->Nome,1,1)<=Ate .AND. EMPTY(clientes->Convenio)

Clemerson

[Enrico Maria Giordano]

PRINT oPrn ... FROM USER

REPORT oRpt ... TO DEVICE oPrn

EMG

[clemerson]

PRINT oPrn ... FROM USER

REPORT oRpt ... TO DEVICE oPrn

EMG

he didn't work:

REPORT oRpt CAPTION "Clientes" TITLE "Cadastro de Clientes" ;
HEADER "Data: " + DToC( Date() ) + ", Hora: " + Time() ;
FOOTER "Página: " + Str( oRpt:nPage, 3 ) ;
TO DEVICE oRpt ;
PREVIEW
.
.
.

Clemerson

[areang]

try this

REPORT oRpt CAPTION "Clientes" TITLE "Cadastro de Clientes" ;
HEADER "Data: " + DToC( Date() ) + ", Hora: " + Time() ;
FOOTER "Página: " + Str( oRpt:nPage, 3 ) ;
FROM USER ;
PREVIEW

Best Regard
Areang

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"
#include "Report.ch"


FUNCTION MAIN()

    LOCAL oPrn, oRpt

    USE TEST

    PRINT oPrn FROM USER PREVIEW

    REPORT oRpt TO DEVICE oPrn

    COLUMN TITLE "LAST";
           DATA FIELD -> last

    COLUMN TITLE "FIRST";
           DATA FIELD -> first

    END REPORT

    ACTIVATE REPORT oRpt

    CLOSE

    RETURN NIL

EMG