Fórum Relatório em Quick Report 132 colunas - Draft 12 cpi #263067
22/12/2004
0
:?: Olá a todos
Preciso imprimir um relatório com QuickReport.
Usando Fonte Draft 10 cpi e em 132 colunas.
Defino o Formulario Como Custom e Width 350 e Height como 280
mas quando imprime ele se limita a emitir somente parte do relatório
o equivalente a 80 colunas.
Como resolver isso.
Obrigado
Neto
Preciso imprimir um relatório com QuickReport.
Usando Fonte Draft 10 cpi e em 132 colunas.
Defino o Formulario Como Custom e Width 350 e Height como 280
mas quando imprime ele se limita a emitir somente parte do relatório
o equivalente a 80 colunas.
Como resolver isso.
Obrigado
Neto
Neto
Curtir tópico
+ 0
Responder
Posts
22/12/2004
Tpvieira
for i := 0 to ComponentCount -1 do
begin
quickrep1.Font.Name := ´Draft 12Cpi´;
if Components[i] is Tqrexpr then
Tqrexpr(Components[i]).font.Name := ´Draft 12Cpi´;
if Components[i] is TqrLabel then
TqrLabel(Components[i]).font.Name := ´Draft 12Cpi´;
if Components[i] is TqrDBText then
TqrDBText(Components[i]).font.Name := ´Draft 12Cpi´;
end;
tenta colocar isso no before print do quick report......
begin
quickrep1.Font.Name := ´Draft 12Cpi´;
if Components[i] is Tqrexpr then
Tqrexpr(Components[i]).font.Name := ´Draft 12Cpi´;
if Components[i] is TqrLabel then
TqrLabel(Components[i]).font.Name := ´Draft 12Cpi´;
if Components[i] is TqrDBText then
TqrDBText(Components[i]).font.Name := ´Draft 12Cpi´;
end;
tenta colocar isso no before print do quick report......
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)