Impressao modo texto

Question

e ae galera,algu�m sabe como fazer um texto sair em negrito, na impress�o em modo texto.Obrigado...

Os1000r · Answer

Se vc estiver imprimindo diretamente na LPT1: e numa impressora matricial, abaixo segue alguns comandos que poder�o te ajudar:

Primeiro verifica se a impressora esta ativa e se � matricial (verifique a porta e o drive da impressora ou solicite ao operador a identificar o tipo de impressora antes de iniciar a impress�o).

fFont � um objeto TFont criado s� pra salvar os estilos e tb pode ser usado em outros tipos de impress�es.

Prn � um TextFile aberto para LPT1:.

Para funcionar voce seta no fFont os estilos que vc quer e chama a func�o abaixo.

Espero ter ajudado. Abra�o

Os1000r

if (PrnAtiva = true) and (fTipoPrn = pMatricial) then
   begin
    try   // Estilo = Bold
     if fsBold in fFont.Style then
      begin
       Write (Prn, #27);// Liga bold
       Write (Prn, 69);
      end
      else
      begin
       Write (Prn, #27); // Desliga bold
       Write (Prn, 70);
      end;
           // Estilo = Italico
     if fsItalic in fFont.Style then
      begin
       Write (Prn, 27);// Liga italico
       Write (Prn, 52);
      end
      else
      begin
       Write (Prn, 27); // Desliga italico
       Write (Prn, 53);
      end;

    except
     ShowMessage(�ERRO: Comando para estilo de fonte da impressora n�o conclu�do.�+1310+
               �Favor alterar manualmente na impressora.�);
    end;
  end;

Sremulador · Answer

Se voc� usar o fortes reporter e muito mais pr�tico....

F�rum Impressao modo texto #222487