PC Toledo

Gostaria de saber se é possível definir se a impressora escolhida é matrial.

Matricial quis dizer ? Acredito que este tópico possa te ajudar a buscar uma meia solução: https://pctoledo.org/forum/viewto ... =matricial

gostaria de evitar a pergunta ao usuario quando não for DeskJet ou LaserJet.

Agora para esta questão, você mesmo pode definir, pelo nome da impressora.

Olá Pablo,

Show de bola!!! Usei seu exemplo VQTIPO, testei o exemplo abaixo e adaptei ao aplicativo e acho que isto resolve, não creio que terei surpresas. Parece suficientemente seguro da forma que vcs fizeram.

Fiz algumas impressões, e agora só falta ajustar alguns posicionamentos na etiqueta. Valew, Obrigado.

Olá pessoal,

Estou com a seguinte situação: O código acima responde corretamente, porém, quando imprime tenho um resultado assim:
Quando imprime o titulo usando oPrinter:TextOut(), sai na impressora depois, e não consigo resolver isso. Tentei também somar tudo em uma variavel e gravar, mas não dá certo.

Quando faço isso, o PrintFileRaw, pressiona o titulo sobre a barra, e a barra sobre o código, como se fosse um bloco só. Não há nenhuma pica de espaço entre titulo e codbarra, e codbarra e codigo numerico do produto.

Se acrescento um Chr(13)+Chr(10) no final de cTitProd, abre uma linha cheia, e o mesmo se faço isso em cBarra, abre uma linha cheia abaixo da barra. Sai fora da etiqueta.

Imprimir a linha do codbarra usando oPrinter:TextOut(cBarra), não funciona. Imprime caracteres esdrúxulos, mas não o codigo.

Gravar em arquivo o titulo e imprimir antes do codbarra, acontece o mesmo que disse acima, fica pressionado sobre a barra.

Alguém teria alguma dica, ou poderia me explicar o que esta acontecendo?

Na sessão Download coloquei um instalador com alguns exemplos de codigo de barra, de uma olhada lá que talvez ajude.

Olá Leonardo,

Obrigado pela sugestão.

Ocorre que este módulo tem algumas particularidades que requereriam muito tempo para repensá-lo. Todo restante da aplicação está converida e funcionando corretamente. Mas esse módulo de impressão de código de barras está um parto.

Tenho que por exigência do cliente que manter a possibilidade de impressão em Matricial, especificamente este trecho que enviei o código.

Com testes realizados com fontes true type, não obtive resultado em matricial, o leitor demora para ler, e muitas vezes falham. A rotina que a aplicação usa imprime perfeitamente em matriciais e ink/lasers.

Por experiência, essa exigência faz sentido neste caso, pois se a etiqueta em jato de tinta umidece, ela com frequência borra, e não é lida.

Impressão em laser ou térmica, falham muito quando úmida, enquanto em matricial não dão problema. Pelo menos é fato isso neste caso.

Qualquer tentativa de negociação de mudança deste recurso está descartada, pois corro o risco de ouvir novamente: "se em DOS funciona, pq em 32 bits não vai funcionar".

Tentei encontrar na internet e neste e outros fóruns situação similar, se há, não encontrei. Talves se eu entendesse pq a função PrintFileRaw() é mais rápida, talves consiga encontrar alguma solução.

Mantendo em Harbour a rotina original, e imprimindo em lpt, funciona redondo, mas tem que usar usb.
_________________________________________________________________________________________________
Editei esta mensagem às 14h37m para inserir outra informação!
Depois que entendi o que ocorria, vi como fui "estúpido" ao dizer:

Tentei encontrar na internet e neste e outros fóruns situação similar, se há, não encontrei. Talves se eu entendesse pq a função PrintFileRaw() é mais rápida, talves consiga encontrar alguma solução.

Pois é! Como diz minha filha: "esqueci de lembrar" de ler, veja:

Method :startDoc() must be called after :create(). It istructs the spooler to begin with a new document and capture subsequent print output. The print output is sent to the printer after the document is closed with method :endDoc().

PrintFileRaw() se lixa pra isso, e imprime o documento imediatamente.

Porém ao usar :EndDoc() após a 1a. linha para iniciar outro para a 2a., a página sofre um eject. Como o que não tem solução está solucionado, titulo do produto e código numérico foi pro fim da etiqueta. Deu certo e foi aceito pelo cliente. Por enquanto vamos em frente.

Olá Jairo,
Eu não disse para refazer tudo. Eu dei apenas a dica para pegar o exemplo pronto de lá e usar ai na sua rotina....boa sorte.

Olá Leonardo,

Sim, eu entendi. Mas para usar estas dicas, eu teria que mudar minha rotina. Mas acabou ficando resolvido apenas compilando o módulo com Harbou, e por enquanto vai continuar funcionado em LPT, e agora terei tempo para efetuar as mudanças. Alias, assim que resolver algumas coisas que estão pressionando, Vou iniciar os estudos para passar as aplicações para o modo GUI.

Valew as dicas, Obrigado.

Aliás, não sei se não procurei direito, mas aproveitando a oportunidade, você pode me explicar qual a diferença entre "text mode application" e "console application"?