Função: InitPrint
Prepara o ambiente para impressão.
InitPrint ( [ nDirect], [ cName], [ cTipo], [ uParam4], [ cTitle] ) --> lRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nDirect | Numérico | Indica o direcionamento de impressão. Sendo: 1= PRT_CLIENT (Smart Client) E 2=PRT_SERVER (Application Server). | ||
| cName | Caracter | Indica o nome do relatório que será apresentado na janela de gerenciamento de impressão. | ||
| cTipo | Caracter | Indica o tipo de relatório. Sendo: "220"=220 col, "132L"=132 col landscape (default), "132P"=132 col portrait e "080"=80 col portrait. | ||
| uParam4 | Lógico | Compatibilidade. | ||
| cTitle | Caracter | Indica o título do relatório que será apresentado no spool de impressão. |
-
lRet(logico)
- Retorna verdadeiro (.T.), se o processo for realizado com sucesso; caso contrário, falso (.F.).
// Prepara ambiente de impressãolWindows := .T. // .T. indica impressão via WindowscNameImp := "\\172.16.90.251\Tecmono 2" // Nome da ImpressoralDisco := .F. // .T.=Disco ou .F.=SpoolcNameFile := '' // Se lDisco=.T. este parâmetro indica o nome do relatório em discolUnix := .T. // .T. indica impressão em UnixnMargem := 1 // Margem esquerda para encadernaçãoPreparePrint(lWindows,cNameImp,lDisco,cNameFile,lUnix,nMargem)cTipo := "080" InitPrint( PRT_CLIENT,,cTipo,,"Título do Relatório")// Envia para ImpressoralPagAtu := .F. lPagInt := .F. nRgStart := 1 nRgEnd := 1if !SndToPrnWin( "\SPOOL\matr020.##r", lPagAtu, lPagInt, nRgStart, nRgEnd ) Alert('Relatório não pode ser impresso')else Alert('Relatório impresso com sucesso')endif
Microsiga Protheus 8.11
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas