× Linguagem de Programação ADVPL

Perguntas impressão schedule

Mais
10 anos 2 meses atrás #25317 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

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.091 segundos
Joomla templates by a4joomla