Pesquisar na Comunidade
Mostrando resultados para as tags ''ltp1''.
Encontrado 1 registro
-
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;