Sou iniciante do delphi e to levando um surra do RDprint

[Maicon Saraiva]

Olá Amigos, Sou Iniciante no delphi e estou apanhando pra caramba pra usar o rdprint, na verdade nem consegui nada.

Comprei um programa comercial com os fontes, e agora preciso alterar o relatorio de pedidos, o problema é que o relatorio nem existe, se nao me engano ele é gerado na hora que a pessoa esta dentro do pedido e clica em imprimir

o relatorio é gerado usando QReport, mas nao imprime corretamente em matricial lx-300, preciso além de configurar para esta impressora incluir novos campos na listagem dos itens dos pedidos., tenho o rdprint mas nao sei por onde anda,(já procurei por tutoriais na net e nada! preciso de ajuda:confused::confused:

esse é o codigo do botao Imprimir Na Tela de Pedidos de Venda

  IniciaRelatorio;
  //SaliverPrinter1.Header(1);
  //SaliverPrinter1.Footer(SaliverPrinter1.Lines-2);


  //SaliverPrinter1.GotoYX(01,01, SaliverPrinter1.StringOfChar('-',54));
  //012345678901234567890123456789012345678901234567890123456789012345678901234567
  SaliverPrinter1.GotoYX(01,01, '========================================================================');
  SaliverPrinter1.GotoYX(02,01, Centrar(FrmPrincipal.db_empresa.FieldByName('NOME').AsString,74), [tpfNegrito]   );
  SaliverPrinter1.GotoYX(03,01, Centrar(FrmPrincipal.db_empresa.FieldByName('ENDERECO').AsString,74) );
  SaliverPrinter1.GotoYX(04,01, Centrar(FrmPrincipal.db_empresa.FieldByName('ENDERECO2').AsString,74) );
  SaliverPrinter1.GotoYX(05,01, Centrar(FrmPrincipal.db_empresa.FieldByName('FONE').AsString,74) );
  SaliverPrinter1.GotoYX(06,01, StringOfChar('_', 72) );
  SaliverPrinter1.GotoYX(07,01, 'Nº Controle.: '+CampoTexto(db_vendas.FieldByName('CODIGO').AsString,8)+StringOfChar(' ', 25)+'Data: '+DateToStr(Date)+' - '+Copy(TimeToStr(time),1,5)+'h'  );

  SaliverPrinter1.GotoYX(08,01, 'Cliente.....: '+db_vendas.FieldByName('CLIENTE').AsString+'-'+db_vendas.FieldByName('NomeCliente').AsString );
  SaliverPrinter1.GotoYX(09,01, 'Forma Pagto.: '+db_vendas.FieldByName('NomeFormapagto').AsString );
  SaliverPrinter1.GotoYX(10,01, StringOfChar('_', 72) );
  SaliverPrinter1.GotoYX(11,01, 'Codigo:  Descricao:                    UN:  Qtd:   Vl. Unit:  Subtotal:' );
  SaliverPrinter1.GotoYX(12,01, StringOfChar('-', 72) );


  wInteger[0] :=12;
  wFloat[0]   :=0;
  db_VendasItens.first;
  while not db_VendasItens.eof do
  begin
     wFloat[0] := wFloat[0] + db_VendasItens.FieldByName('QTDE').AsFloat ;

     inc(wInteger[0]);
     SaliverPrinter1.GotoYX(wInteger[0],01, CampoCodigo(db_VendasItens.FieldByName('PRODUTO').AsString,     06)+StringOfChar(' ', 3)+
                                           CampoTexto(db_VendasItens.FieldByName('DESCRICAO').AsString,   30)+
                                           CampoTexto(db_VendasItens.FieldByName('UND').AsString,         03)+
                                           CampoCodigo(db_VendasItens.FieldByName('QTDE').AsString,       05){+StringOfChar(' ', 1)}+
                                           CampoValor(db_VendasItens.FieldByName('VLR_UNIT').AsFloat,     12)+
                                           CampoValor(db_VendasItens.FieldByName('VLR_TOTAL').AsFloat,    11) );

     db_VendasItens.next;
  End;
  db_VendasItens.first;

  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  StringOfChar('-', 72) );

  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  'Qtde Produtos....: '+CampoCodigo(db_vendas.FieldByName('QTDE_PRODUTOS').AsString, 08 ) );

  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  'Desconto.........: '+CampoValor(db_vendas.FieldByName('VLR_DESCONTO').AsFloat,08 ) );

  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  'Total............: '+CampoValor(db_vendas.FieldByName('TOTAL_NF').AsFloat,08 ) );


  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  StringOfChar('-', 72) );


  db_faturasimprimir.open;
  if db_faturasimprimir.RecordCount>0 then
  begin
     inc(wInteger[0]);
     SaliverPrinter1.GotoYX(wInteger[0],01,  Centrar('DADOS DAS FATURAS',74));
     inc(wInteger[0],2);

   //***

     inc(wInteger[0]);
     SaliverPrinter1.GotoYX(wInteger[0],01, 'Fatura:    Data:         Vencimento:         Valor:       Situacao:           ' );
     inc(wInteger[0]);
     SaliverPrinter1.GotoYX(wInteger[0],01, StringOfChar('-', 72) );


     db_faturasimprimir.first;
     while not db_faturasimprimir.eof do
     begin

        inc(wInteger[0]);
        SaliverPrinter1.GotoYX(wInteger[0],01, CampoTexto(db_faturasimprimir.FieldByName('DOCUMENTO').AsString ,   11)+
                                              CampoTexto(db_faturasimprimir.FieldByName('DATA').AsString,        14)+
                                              CampoTexto(db_faturasimprimir.FieldByName('VENCIMENTO').AsString,  13)+
                                              CampoValor(db_faturasimprimir.FieldByName('VALOR').AsFloat,        13)+StringOfChar(' ', 7)+
                                              CampoTexto(db_faturasimprimir.FieldByName('QUITADO').AsString,     12) );

        db_faturasimprimir.next;
     End;
     db_faturasimprimir.close;


   //***
  end;

  inc(wInteger[0],4);
  SaliverPrinter1.GotoYX(wInteger[0],01,  Centrar('_________________________________________',74) );
  inc(wInteger[0]);
  SaliverPrinter1.GotoYX(wInteger[0],01,  Centrar('Assinatura do Cliente',74) );

  TerminaRelatorio;



end;

Obrigado

e Por Favor Me Ajudem Urgente!!!