Procurei no Forum Não tive êxito. Impressao
Estou com o seguinte problema:
Desenvolvi um sistema usando delphi 6.0 e o banco firebird 1.5.
Na parte de relatório estou usando o quickreport. Qdo estou mandando imprimir em relatório de papel com formato a4 e carta sai beleza.
O problema está, qdo estou imprimindo a venda dos produtos, ou seja a venda é efetuada e qdo os itens passam de uma folha no preview aparece formatado tudo bem, o problema é que qdo mando para impressora (epson lx-300) a primeira folha sai preenchida em seguida ela pula uma folha e imprime na terceira folha, deixando de imprimir na segunda folha. A formato da folha e customizada, width 210,10 mm e heigth 140,00 mm. Já não sei mais o que fazer. O cliente viajou e precisa que na próxima segunda esse problema esteja sido resolvido. A lentidão da impressão para ser resolvido é só usando impressão com canvas?
Se alguém puder ajudar-me. Obrigado
Desenvolvi um sistema usando delphi 6.0 e o banco firebird 1.5.
Na parte de relatório estou usando o quickreport. Qdo estou mandando imprimir em relatório de papel com formato a4 e carta sai beleza.
O problema está, qdo estou imprimindo a venda dos produtos, ou seja a venda é efetuada e qdo os itens passam de uma folha no preview aparece formatado tudo bem, o problema é que qdo mando para impressora (epson lx-300) a primeira folha sai preenchida em seguida ela pula uma folha e imprime na terceira folha, deixando de imprimir na segunda folha. A formato da folha e customizada, width 210,10 mm e heigth 140,00 mm. Já não sei mais o que fazer. O cliente viajou e precisa que na próxima segunda esse problema esteja sido resolvido. A lentidão da impressão para ser resolvido é só usando impressão com canvas?
Se alguém puder ajudar-me. Obrigado
Oziasl
Curtidas 0
Respostas
Macario
12/04/2005
Se voce estiver efetuando a impressão de notas fiscais em formulário continuo, use WriteLn, voce acha bastante dicas aqui no forum, faz uma pesquisa e se tiver dificuldade em utilizar é so dizer
GOSTEI 0
Weber
12/04/2005
O QuickReport pode apresentar alguns bugs quando o tamanho do papel é customizado.
Já tive esse tipo de problema e não consegui resolver.
Já tive esse tipo de problema e não consegui resolver.
GOSTEI 0
Aminhoni
12/04/2005
Veja se esta dica resolve seu problema.
{Quando executa o PrintSetup do Preview e você está trabalhando com papel Personalizado, o QuickReport perde a configuração do Papel Personalizado, colocando o PaperSize de Custom para Letter. Para resolver o problema guarde o valor da propriedade PaperSize e do Length em variáveis e no evento BeforePrint você atribui o valor da variável para o QuickReport novamente, dessa forma resolve o problema. Veja exemplo }
Uses
qrprntr
var
Form1: TForm1;
cPaperSize : TQRPaperSize;
nLength : Extended;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
cPapersize := QuickRep1.Page.PaperSize;
nLength := QuickRep1.Page.Length;
QuickRep1.Preview;
end;
procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
begin
QuickRep1.Page.PaperSize := cPaperSize;
QuickRep1.Page.Length := nLength;
end;
{Quando executa o PrintSetup do Preview e você está trabalhando com papel Personalizado, o QuickReport perde a configuração do Papel Personalizado, colocando o PaperSize de Custom para Letter. Para resolver o problema guarde o valor da propriedade PaperSize e do Length em variáveis e no evento BeforePrint você atribui o valor da variável para o QuickReport novamente, dessa forma resolve o problema. Veja exemplo }
Uses
qrprntr
var
Form1: TForm1;
cPaperSize : TQRPaperSize;
nLength : Extended;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
cPapersize := QuickRep1.Page.PaperSize;
nLength := QuickRep1.Page.Length;
QuickRep1.Preview;
end;
procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
begin
QuickRep1.Page.PaperSize := cPaperSize;
QuickRep1.Page.Length := nLength;
end;
GOSTEI 0