Tipo: Relatórios
Configura a impressora através dos parâmetros. Esta função é usada em relatórios específicos que não se utilizam da função “Cabec”. Imprimindo o retorno desta função na impressora, ela se encarregará de configurar a impressora de acordo com o arquivo de driver escolhido, e com as configurações escolhidas pelo usuário definidas no array aReturn.
Sintaxe
AvalImp(nLimit)
Parâmetros
nLimit – Tamanho do relatório em colunas. Pode ser 80, 132 ou 220 (respec-tivamente para relatórios de tamanho “P”,”M” e “G”).
Retorna
cControl – String com caracteres de controle, dependente das configurações escolhidas pelo usuário e do arquivo de driver especificado.
Exemplo
// Exemplo de uso da função AvalImp:
#IFNDEF WINDOWS
#DEFINE PSAY SAY
#ENDIF
cCbTxt:= “”
cCbCont:= “”
nOrdem:= 0
nAlfa:= 0
nZ:= 0
nM:= 0
cTamanho:= “G”
cLimite:= 220
cTitulo:= PADC(“Nota Fiscal”,74)
cDesc1:= PADC(“Este programa irá emitir a Nota Fiscal de Entrada/Saída”,74)
cDesc2:= “”
cDesc3:= PADC(“da Feeder Industrial Ltda.”,74)
cNatureza:= “”
aReturn:= {“Especial”, 1,”Administração”, 1, 2, 2,””,1}
cNomeProg:= “NFEEDER”
cPerg:= “ENTSAI”
nLastKey:= 0
lContinua:= .T.
nLi:= 0
wnrel:= “NFEEDER”
nTamNf:=72 // Apenas Informativo
Pergunte(cPerg,.F.) // Pergunta no SX1
cString:=”SF2″
wnrel:= SetPrint(cString,wnrel,cPerg,cTitulo,cDesc1,cDesc2,cDesc3,.T.)
SetDefault(aReturn,cString)
If nLastKey == 27
Return
Endif
#IFDEF WINDOWS
RptStatus({|| Execute(Relato)})
Return
#ENDIF
Function Relato
SetPrc(0,0)
// Aqui está a chamada da função AvalImp. Configura a
// impressora de acordo com as definições em aReturn
// escolhidas pelo usuário na função SetPrint
@ 00,00 PSAY AvalImp(220)
dbSelectArea(“SF2”)
dbSeek(xFilial()+mv_par01+mv_par03,.T.)
// O programa segue normalmente…
Return
Estude para provas de certificações em TI com os simulados Bynem