PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Impressão contínua com FWMSPrinter
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário HEITOROF HEITOROF em 18/06/2024, 10:47 h
Local: MG  Registro: 03/09/2009  Postagens: 20
Bom dia à todos.

Utilizando a classe FWMsPrinter, qual o melhor método para poder imprimir o relatório montado de forma contínua? Em bobina de 80mm, na Bematech 4200. Meu relatório é montado com dados do banco de dados, portanto, é dinâmico e pode variar de tamanho.
Li sobre o SetPaperSize, utilizando nPaperSize = 0, que seria o tamanho personalizável, mas por alguma razão a montagem está acatando as definições de altura e largura.
Se alguém puder me dar um norte no tema, agradeço muito.
Atte,

Mensagem do Enviar e-mail Abrir o Perfil do usuário ROBERTOMEN ROBERTOMEN em 18/06/2024, 15:13 h
Local: PR  Registro: 04/07/2017  Postagens: 519
Boa tarde.

Teste ai, se saltar página, verifique as configurações da impressora.


Local ofont10 := TFont():New( "Courier New",,10,,.T.,,,,,.F. )

Local nLinha : = 0

oPrint := FWMSPrinter():New("RAEST"+__cUserId+strtran(time(),":",""), 2, .t.,, .t., , , , , , , .t.)

If !oPrint:IsPrinterActive()
   Aviso("Atenção","Não há uma Impressora Conectada.",{"OK"})
   Return(Nil)
EndIf

oPrint:StartPage()

oPrint:SetPortrait()

for nX := 1 to 10
   oPrint:Say(nLinha,0027,"Produto " + str(nx,2) ,ofont10 )
   nLinha +=100

   oPrint:Say(nLinha,0027,UsrFullName(__cUserId) ,ofont10 )
   nLinha +=100

   oPrint:Say(nLinha,0027,dtoc(date())+" - "+time() ,ofont10 )
   nLinha +=100
Next

oPrint:endpage()

oPrint:Preview()


Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal