Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: SetPrint - Configuração impressão de relatórios
Descrição: A função SetPrint() cria a interface (diálogo) onde as opções de impressão de um relatório podem ser configuradas. Programa Fonte: APLIB080.PRW Sintaxe: SetPrint - Configuração impressão de relatórios ( cAliascProgram [ cPergunte ] [ cTitle ] [ cDesc1 ] [ cDesc2 ] [ cDesc3 ] [ lDic ] [ aOrd ] [ lCompres ] [ cSize ] [ uParm12 ] [ lFilter ] [ lCrystal ] [ cNameDrv ] [ uParm16 ] [ lServer ] [ cPortPrint ] ) --> cReturn Retorno:
Observações Basicamente duas variáveis m_pag (*) e aReturn (**) precisam ser declaradas como privadas (private) antes de executar a SetPrint(). Após confirmada, os dados são armazenados no vetor aReturn que será passado como parâmetro para função SetDefault(). aReturnOrdem Tipo Conteúdo aReturn[1] C Tipo do formulário aReturn[2] N Opção de margem aReturn[3] C Destinatário aReturn[4] N Formato da impressão aReturn[5] N Dispositivo de impressão aReturn[6] reservado aReturn[7] reservado aReturn[8] N Ordem. Exemplos O exemplo abaixo mostra a utilização da função SetPrint com a utilização das funções SetDefault(), RptStatus(), SetRegua(), IncRegua(), Cabec(), Roda(), OurSpool() e MS_FLUSH().#include "protheus.ch"User Function TestImprime() Local wnrelLocal cString := "SA1"Local titulo := "Teste Impressão de Relatorios"Local NomeProg := "XXX" Local Tamanho := "M"PRIVATE aReturn := { "Zebrado", 1,"Administracao", 1, 2, 1, "",1 }wnrel:=SetPrint(cString,NomeProg,"",@titulo,"", "", "",.F.,.F.,.F.,Tamanho,,.F.)SetDefault(aReturn,cString)RptStatus({|lEnd| U_TestRel(@lEnd,wnRel,cString,Tamanho,NomeProg)},titulo)Return User Function TestRel(lEnd,WnRel,cString,Tamanho,NomeProg)LOCAL cabec1,cabec2LOCAL cRodaTxt := oemtoansi("Rodapé")Local nCntImpr Local nTipo nCntImpr := 0li := 80 m_pag := 1//³ Inicializa os codigos de caracter Comprimido da impressora ³nTipo := 15//³ Monta os Cabecalhos ³titulo:= oemtoansi("Lista de Clientes")cabec1:= oemtoansi("COD LOJA NOME NOME FANTASIA ")cabec2:="" dbSelectArea("SA1")dbGoTop()SetRegua(LastRec())While !Eof() IncRegua() If Li > 60 cabec(titulo,cabec1,cabec2,nomeprog,tamanho,15) @ Li,0 PSAY __PrtThinLine() Endif nCntImpr++ Li++ @ Li,01 PSAY A1_COD @ Li,05 PSAY A1_LOJA @ Li,10 PSAY A1_NOME @ Li,51 PSAY A1_NREDUZ If Li > 60 Li:=66 Endif dbSkip()EndDOIf li != 80 Roda(nCntImpr,cRodaTxt,Tamanho)EndIfSet Device to ScreenIf aReturn[5] = 1 Set Printer To dbCommitAll() OurSpool(wnrel)EndifMS_FLUSH()Return Parâmetros:
|