Aumentar o tamanho da fonte ( impressão em Dos )
Olá pessoal, uso o Delphi 6 e tenho algumas impressões que estão em MS-DOS, gostaria de saber se tem com aumentar o tamanho das letras.
Muito obrigado.
Muito obrigado.
Jmarcelo_8
Curtidas 0
Respostas
Jmarcelo_8
10/12/2008
??
GOSTEI 0
Renato.pavan
10/12/2008
Amigo, você utiliza a impressora Epson?
em caso afirmativo, você pode usar esses escapes.
Retirei da unit do vdoPrint.
Abraços,
Renato.
em caso afirmativo, você pode usar esses escapes.
Retirei da unit do vdoPrint.
{ **** Escapes Epson **** }
{ Controle de caracteres }
EscDraft = #27+´x´+´0´; // Modo Draft
EscNLQ = 27+´x´+´1´; // Modo NLQ
EscNLQRoman = 27+´k´+´0´; // Fonte NLQ "Roman"
EscNLQSansSerif = 27+´k´+´1´; // Fonte NLQ "SansSerif"
Esc10cpp = 27+´P´; // Espaçamento horizontal em 10cpp
Esc12cpp = 27+´M´; // Espaçamento horizontal em 12cpp
EscCondensedOn = 15; // Ativa o modo condensado
EscCondensedOff = 18; // Desativa o modo condensado
EscLargeOn = 27+´W´+´1´; // Ativa o modo expandido
EscLargeOff = 27+´W´+´0´; // Desativa o modo expandido
EscBoldOn = 27+´E´; // Ativa o modo negrito
EscBoldOff = #27+´F´; // Desativa o modo negrito
EscItalicOn = 27+´4´; // Ativa o modo itálico
EscItalicOff = 27+´5´; // Desativa o modo itálico
EscUnderlineOn = 27+´-´+´1´; // Ativa o modo sublinhado
EscUnderlineOff = 27+´-´+´0´; // Desativa o modo sublinhado
EscDblStrikeOn = 27+´G´; // Ativa o modo de passada dupla
EscDblStrikeOff = 27+´H´; // Desativa o modo de passada dupla
EscSupScriptOn = 27+´S1´; // Ativa o modo sobrescrito
EscSubScriptOn = 27+´S0´; // Ativa o modo subescrito
EscScriptOff = 27+´T´; // Desativa os modos sobrescrito e subescritoAbraços,
Renato.
GOSTEI 0