Cedilha e Acento não imprimindo

[porter]

Olá pessoal, estou tendo esse resultado ao imprimir um orçamento
** ORÃAMENTO **

Assim, dá certo, imprimir na tela:

Código: Selecionar todos

10, 02 PROMPT HB_ANSITOOEM("Orçamento")

Estou fazendo dessa forma, para gerar um arquivo TXT:

Código: Selecionar todos

SET PRINTER TO C:\ORCAMENTOS\Orcamento.TXT
SETPRC(0,0)
? chr(18) + chr(27)+"E"
@ contl,00 SAY HB_ANSITOOEM("** ORÇAMENTO ** ")

Harbour 3.2.0 dev

[alxsts]

Olá!

Como você está iniciando sua aplicação?

Está carregando e selecionando a página de código correta?

A página de código do teu editor de texto está configurada corretamente?

Qual sistema operacional está usando?

Se for Windows 11, execute as configurações abaixo:

Acesse PAINEL DE CONTROLE -> REGIAO -> ADMINISTRATIVO -> E AJUSTAR a localidade do sistema e desmarcar a opção USAR UNICODE UTF-8 PARA SUPORTE DE LIGUAGEM MUNDIAL.

[alxsts]

Olá!

Como você está iniciando sua aplicação?

Está carregando e selecionando a página de código correta?

A página de código do teu editor de texto está configurada corretamente?

Qual sistema operacional está usando?

Se for Windows 11, execute as configurações abaixo:

Acesse PAINEL DE CONTROLE -> REGIAO -> ADMINISTRATIVO -> E AJUSTAR a localidade do sistema e desmarcar a opção USAR UNICODE UTF-8 PARA SUPORTE DE LIGUAGEM MUNDIAL.

Editado:
Se você estiver selecionando a página de código correta, não é necessário usar funções de conversão como hb_AnsiToOem().
Aliás, este pode ser o problema. Está configurando a página de código corretamente e chamando a função de conversão, que bagunça o texto...