×
Linguagem de Programação ADVPL
Perguntas impressão schedule
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25317
por gustavo13
impressão schedule foi criado por gustavo13
Olá!
Estou com um erro ao tentar efetuar a impressão pelo schedule usando a função InitPrint, alguém sabe o que pode estar ocasionando o erro. Obrigado!
Erro:
Warning in tInitPrint: trying to print in Remote without connection! Redirected to Server.Warning in tInitPrint: trying to print in Remote without connection! Redirected to Server.
Fonte:
Static Function Impressao(aArq,_cImpres,_cDir)
_aImpres := GETIMPWINDOWS(.T.)
For k := 1 to len(_aImpres)
If UPPER(_cImpres) == UPPER(_aImpres[k])
cNameImp := _aImpres[k]
EndIf
Next
For j := 1 to len(aArq)
lWindows := .F. // .T. indica impressão via Windows
lDisco := .F. // .T.=Disco ou .F.=Spool
cNameFile := "" //"pre_nota"+__CUSERID+".##r" // Se lDisco=.T. este parâmetro indica o nome do relatório em disco \SPOOL\
lUnix := .F. // .T. indica impressão em Unix
nMargem := 3 // Margem esquerda para encadernação
cTipo := "220L"
PreparePrint(lWindows,cNameImp,lDisco,"",lUnix,nMargem )
//nPrtIn := 2 // 1= PRT_CLIENT (Smart Client) E 2=PRT_SERVER
//InitPrint(2,,cTipo,,"Relatorio Pre-nota") //@nPrtIn
InitPrint(2,"TESTE", "220L" )
// Envia para Impressora
lPagAtu := .F.
lPagInt := .F.
nRgStart := 1
nRgEnd := 100
SetPrc (0,0)
SndToPrnWin(_cDir+aArq[j][1], lPagAtu, lPagInt, nRgStart, nRgEnd ) //"pre_nota"+__CUSERID+".##r"
FechaRel()
__CopyFile(_cDir+aArq[j][1], "\PreNota\Impresso\"+aArq[j][1])
FErase(_cDir+aArq[j][1])
Next
Return
Estou com um erro ao tentar efetuar a impressão pelo schedule usando a função InitPrint, alguém sabe o que pode estar ocasionando o erro. Obrigado!
Erro:
Warning in tInitPrint: trying to print in Remote without connection! Redirected to Server.Warning in tInitPrint: trying to print in Remote without connection! Redirected to Server.
Fonte:
Static Function Impressao(aArq,_cImpres,_cDir)
_aImpres := GETIMPWINDOWS(.T.)
For k := 1 to len(_aImpres)
If UPPER(_cImpres) == UPPER(_aImpres[k])
cNameImp := _aImpres[k]
EndIf
Next
For j := 1 to len(aArq)
lWindows := .F. // .T. indica impressão via Windows
lDisco := .F. // .T.=Disco ou .F.=Spool
cNameFile := "" //"pre_nota"+__CUSERID+".##r" // Se lDisco=.T. este parâmetro indica o nome do relatório em disco \SPOOL\
lUnix := .F. // .T. indica impressão em Unix
nMargem := 3 // Margem esquerda para encadernação
cTipo := "220L"
PreparePrint(lWindows,cNameImp,lDisco,"",lUnix,nMargem )
//nPrtIn := 2 // 1= PRT_CLIENT (Smart Client) E 2=PRT_SERVER
//InitPrint(2,,cTipo,,"Relatorio Pre-nota") //@nPrtIn
InitPrint(2,"TESTE", "220L" )
// Envia para Impressora
lPagAtu := .F.
lPagInt := .F.
nRgStart := 1
nRgEnd := 100
SetPrc (0,0)
SndToPrnWin(_cDir+aArq[j][1], lPagAtu, lPagInt, nRgStart, nRgEnd ) //"pre_nota"+__CUSERID+".##r"
FechaRel()
__CopyFile(_cDir+aArq[j][1], "\PreNota\Impresso\"+aArq[j][1])
FErase(_cDir+aArq[j][1])
Next
Return
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.091 segundos