Página 1 de 1

Ajuda sobre impressão

Enviado: 26 Jul 2015 00:11
por JOSE CAMARA
Olá, Boa noite aos amigos, estou com um problema e estou pedindo ajuda dos amigos aqui, para fazer uma impressao de um simples cupom de conferencia, uso dessa forma no windows xp funciona perfeitamente inclusive usando cabo usb , porem no windows 7 ele da a mensagem a baixo de que a impressora nao esta ligada. desde já meu muito Obrigado.

Try

SET PRINTER ON
SET PRINTER TO LPT1
SET CONSOLE OFF

? x_nome
? x_endereco+', '+x_numero+', '+x_fixo
? '------------------------------------------------'
? ' COMANDA PARA SIMPLES CONFERENCIA'
? ' NAO E DOCUMENTO FISCAL'
? ' VENDA : '+_nome_da_venda
? '------------------------------------------------'
? 'PRODUTO QTD UNIT. SUB-TOTAL'
? '------------------------------------------------'
/*
imprime os produtos
*/

SET CONSOLE ON
SET PRINTER TO
SET PRINTER OFF

Catch e

msgexclamation('A IMPRESSORA Desligada ','Atenção') < -----------------------------------------
return(nil)

End

return(nil)

Ajuda sobre impressão

Enviado: 26 Jul 2015 10:58
por JoséQuintas
Não sei como o xHarbour trata isto:

Código: Selecionar todos

SET PRINTER ON
SET PRINTER TO LPT1
Primeiro ativa a saída pra impressora, e só depois seleciona a impressora.
Fora isso, talvez tenha que selecionar a porta correta.