Fórum Vdoprint VDODmPrinter1 Espaçamento entre linhas #363596
08/09/2008
0
Não estou conseguindo definir o espaçamento entre linhas, tipo eu quero colocar 1,5 – 2 - 3 – o espaçamento que eu quiser, já tentei usar o LineSpacing: mais não tive sucesso, alguém pode me ajudar...
Regismatos
Curtir tópico
+ 0
Responder
Posts
08/09/2008
Regismatos
Não estou conseguindo definir o espaçamento entre linhas, tipo eu quero colocar 1,5 – 2 - 3 – o espaçamento que eu quiser, já tentei usar o LineSpacing: mais não tive sucesso, alguém pode me ajudar...
with VDODmPrinter1 do
begin
{ Inicia o Documento }
BeginDoc;
{ Altera o fonte para escrita de um título }
Font.Size := fsLargeCondensed;
{ Imprime o título e avança para linha seguinte }
Print(00,´Título do Relatório´, True);
{ Altero o fonte para o tamanho default }
Font.Size := fsCondensed;
{ Imprime um traço e avança para linha seguinte }
Print(00,StringOfChar(´-´,80),True);
{ Imprime um cabeçalho de detail e avança para
para linha seguinte apenas quando imprimir a
última coluna }
Print(00,´Código´);
Print(08,´Nome´);
Print(25,´E-mail´);
Print(53,´Linha´, True);
{ Imprime um traço e avança para linha seguinte }
Print(00,StringOfChar(´-´,80),True);
{ Imprime os detalhes... simulando um loop em um dataset}
for i:= 1 to 10 do
begin
Print(00, Format(´¬6.6d´,[i]));
Print(08, ´TVDODmPrinter´);
Print(25, ´seuemail@seuservidor.com´);
Print(53, ´Esta eh a linha numero: ´ + Format(´¬3.3d´, [CurrentLine]), True);
end;
{ Avança + duas linhas e imprime o número da página }
NewLine(2);
Print(00,´Página ´ + Format(´¬3.3d´, [CurrentPage]), True);
EndDoc;
end;
with VDODmPrinter1 do
begin
{ Inicia o Documento }
BeginDoc;
{ Altera o fonte para escrita de um título }
Font.Size := fsLargeCondensed;
{ Imprime o título e avança para linha seguinte }
Print(00,´Título do Relatório´, True);
{ Altero o fonte para o tamanho default }
Font.Size := fsCondensed;
{ Imprime um traço e avança para linha seguinte }
Print(00,StringOfChar(´-´,80),True);
{ Imprime um cabeçalho de detail e avança para
para linha seguinte apenas quando imprimir a
última coluna }
Print(00,´Código´);
Print(08,´Nome´);
Print(25,´E-mail´);
Print(53,´Linha´, True);
{ Imprime um traço e avança para linha seguinte }
Print(00,StringOfChar(´-´,80),True);
{ Imprime os detalhes... simulando um loop em um dataset}
for i:= 1 to 10 do
begin
Print(00, Format(´¬6.6d´,[i]));
Print(08, ´TVDODmPrinter´);
Print(25, ´seuemail@seuservidor.com´);
Print(53, ´Esta eh a linha numero: ´ + Format(´¬3.3d´, [CurrentLine]), True);
end;
{ Avança + duas linhas e imprime o número da página }
NewLine(2);
Print(00,´Página ´ + Format(´¬3.3d´, [CurrentPage]), True);
EndDoc;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)