Impressão Cheque LX-300
Tenho um programinha de impressão e cheque que importa planilha do Excel, muito bom, porém estou com dificuldades para imprimir em formulário contínuo, como posso configurar o QuickReport para interpretar quando muda página e como fazer para imprimir certinho.
Paulo Andrade
Curtidas 0
Respostas
Daniel Oliveira
20/05/2011
Configure o tamnho de 4 cheques. A Lx300 possui este tamanho na sua lista. Assim ficará exato.
GOSTEI 0
Paulo Andrade
20/05/2011
Configure o tamnho de 4 cheques. A Lx300 possui este tamanho na sua lista. Assim ficará exato.
.
Como assim?
Como poderia configurar para 4 cheques?
GOSTEI 0
Paulo Andrade
20/05/2011
Configure o tamnho de 4 cheques. A Lx300 possui este tamanho na sua lista. Assim ficará exato.
.
.
Poderia me dar uma dica de como fazer isso? Não entendí muito bem.
GOSTEI 0
Nigro
20/05/2011
Uma outra dica, seria mudar mesmo o componente, para o ZReport que é específico para impressões não gráficas, pois o QR, permite que você imprima qualquer tipo de fontes, gráficos, etc... mas o ZReport é próprio para impressões rápidas e caracteres não gráticos.
GOSTEI 0
Daniel Thomaz
20/05/2011
oi vc consegui resolver o seu problema da impressão do cheque?
GOSTEI 0
Paulo Andrade
20/05/2011
oi vc consegui resolver o seu problema da impressão do cheque?
Até o momento não
GOSTEI 0
Daniel Thomaz
20/05/2011
estou usando esse codigo mais a medida q a pagina vai subindo ele desalinha.
try
qtd := 1;{StrToInt(InputBox(Emitir Carnê,Qtd,)); }
data := StrToDate(01/10/2013);{StrToDate(InputBox(Emitir Carnê,Vencimento,)); }
pr := qtd;
AssignFile(F,LPT1);
Rewrite(F);
for i := 0 to Pred(qtd) do
begin
Writeln(F,#27#15);
//Valor parte superior
Writeln(F, +FormatFloat(###,###,##0.00,dsCheque_Emitir.DataSet.FieldByName(valor).AsFloat));
Writeln(F,IPula);
//Valor extenso
Writeln(F,IDuploC+ +TFuncao.valorPorExtenso(dsCheque_Emitir.DataSet.FieldByName(valor).AsFloat));
// Writeln(F,#27#15);
//NOME ENDERECO
// Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IDuploC+ X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X );
Writeln(F,IDuploC+ +dsCheque_Emitir.DataSet.FieldByName(nominal_a).asString);
// Writeln(F,IPula);
Writeln(F, + CARUARU+ +18+ +ABRIL+ +13);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
end;
CloseFile(F);
Except on e:exception do
ShowMessage(e.Message);
end;
try
qtd := 1;{StrToInt(InputBox(Emitir Carnê,Qtd,)); }
data := StrToDate(01/10/2013);{StrToDate(InputBox(Emitir Carnê,Vencimento,)); }
pr := qtd;
AssignFile(F,LPT1);
Rewrite(F);
for i := 0 to Pred(qtd) do
begin
Writeln(F,#27#15);
//Valor parte superior
Writeln(F, +FormatFloat(###,###,##0.00,dsCheque_Emitir.DataSet.FieldByName(valor).AsFloat));
Writeln(F,IPula);
//Valor extenso
Writeln(F,IDuploC+ +TFuncao.valorPorExtenso(dsCheque_Emitir.DataSet.FieldByName(valor).AsFloat));
// Writeln(F,#27#15);
//NOME ENDERECO
// Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IDuploC+ X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X );
Writeln(F,IDuploC+ +dsCheque_Emitir.DataSet.FieldByName(nominal_a).asString);
// Writeln(F,IPula);
Writeln(F, + CARUARU+ +18+ +ABRIL+ +13);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
Writeln(F,IPula);
end;
CloseFile(F);
Except on e:exception do
ShowMessage(e.Message);
end;
GOSTEI 0