Bom dia, estou tentando imprimir um arquivo txt e nel quero que algumas palavras saia em negrito...
arquivo cupom.txt
Como faço para imprimir a linha 2 e a palavra "Linha 4" em negrito ?
então eu utilizo o DOSPrint para emular a porta LPT1 para a porta usb da minha impressora....
esse é o comando que utilizo para mandar a impressão....
//Verifica se o DOSPRINT esta execuntando, caso não esteja ele executa.
if not ProcessoExiste('DOSPrintUI.exe') then
begin
WinExec (pChar(CaminhoSistema+'DOSPrintUI.exe'), SW_MAXIMIZE);
end;
//verifica se existe o arquivo cupom.txt para mandar imprimir
if FileExists(CaminhoSistema+'cupom.txt') then
begin
// criar um arquivo .bat para enviar o arquivo texto gerado para a impressora atraves da porta LPT1
// usando o comando type do DOS
//Verifica não existe, caso não exista criar o bat com o comando type
if not FileExists(CaminhoSistema+'printlbl.bat') then
begin
AssignFile(F, CaminhoSistema+'printlbl.bat');
try
Rewrite(F);
Writeln(F, 'Type '+CaminhoSistema+'cupom.txt > LPT1');
finally
CloseFile(F);
end
end;
//executa o bat printlbl.bat, para mandar a impressão para a porta lpt1
ShellExecute(0, 'Open', PChar(CaminhoSistema+'printlbl.bat'), nil, nil, Ord(SW_HIDE));
//apaga o arquivo cupom.txt
// DeleteFile(CaminhoSistema+'cupom.txt');
end;