Olá !
Eu teho um relatorio, que quando impresso Gera uma impressão em uma Folha A4
com meu conteúdo no canto.
Porem o mesmo codigo, quando impresso via JOB, na mesma impressora. ele muda o tamanho da folha que a impressão fica como se o papel fosse muito maior, cortando todo o conteúdo da impressão.
como configurar para que ele não mude a impressão?
if !lRest
oPrinter := FWMSPrinter():New(‘EXPT2SK0’,.T.,.T.,Impressora,.F.)
else
oPrinter := FwMsPrinter():New(“EXPT2SK0_”+aDAdos[1] , 2, .F., "\spool", .T., , , , , , .F., )
oPrinter:lServer := .T.
oPrinter:cPrinter := Impressora
endif
// - Define modo de Impressão LAndScape=PAisagem Portrait=Retrato
oPrinter:SetPortrait()
for i = 1 to len(aDados)
// - Inicia a Impressao de nova pag
oPrinter:StartPage()
// - Exibe logo
oPrinter:SayBitmap(0050,0050,cLogo,450,102)
oPrinter:Say(610,001,left(aDados[i],4),oFont1)
// - Verifica se Endereco tem mais de quatro digitos
if len(alltrim(aDados[i])) > 4
// - Se sim, exibe o quinto caracter
oPrinter:Say(280,980,right(alltrim(aDados[i]),1),oFont2)
endif
if !lRest
oPrinter := FWMSPrinter():New(‘EXPT2SK0’,.T.,.T.,Impressora,.F.)
else
oPrinter := FwMsPrinter():New(“EXPT2SK0_”+aDAdos[1] , 2, .F., "\spool", .T., , , , , , .F., )
oPrinter:lServer := .T.
oPrinter:cPrinter := Impressora
endif
// - Define modo de Impressão LAndScape=PAisagem Portrait=Retrato
oPrinter:SetPortrait()
for i = 1 to len(aDados)
// - Inicia a Impressao de nova pag
oPrinter:StartPage()
// - Exibe logo
oPrinter:SayBitmap(0050,0050,cLogo,450,102)
oPrinter:Say(610,001,left(aDados[i],4),oFont1)
// - Verifica se Endereco tem mais de quatro digitos
if len(alltrim(aDados[i])) > 4
// - Se sim, exibe o quinto caracter
oPrinter:Say(280,980,right(alltrim(aDados[i]),1),oFont2)
endif