Ajuda sobre impressão

[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)

[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.