Re: [delphi-br] Printer index out of range

Fri, 16 Mar 2007 10:06:12 -0800 

Esse é o evento q utilizo para impressão da ficha.

procedure Tfrm_FichadeVenda.BotaoImprimirClick(Sender: TObject);
var
  cli,fin,ite,fic,cor:integer;
  opc, doc, ie: String;
begin
  Application.CreateForm(Tfrm_RelFichaVenda, frm_RelFichaVenda);

  cli := d.IBFicha_VendaID_VENDA.Value;
  fin := d.IBFicha_VendaID_VENDA.Value;
  ite := d.IBFicha_VendaID_FICHA.Value;
  fic := d.IBFicha_VendaID_FICHA.Value;
  cor := d.IBFicha_VendaID_VENDA.Value;
  opc := IBQryVerClienteTESTA.Value;
  ie := IBQryVerClienteIE.Value;
  doc := IBQryVerClienteRG.Value;

  try
    with frm_RelFichaVenda do
    begin
      if opc='N'then
      begin
         cnpjcpf.Caption:= ie;
         QRLabel10.Caption:= 'I.E.:';
         QRLabel7.Caption:= 'CNPJ';
      end
      else
      begin
         QRLabel10.Caption:= 'RG:';
         cnpjcpf.Caption:= doc;
         QRLabel7.Caption:= 'CPF';
      end;

      IBQryVerCliente.Close;
      IBQryVerCliente.ParamByName('codigo').Value := cli;
      IBQryVerCliente.Open;

      IBQryVerFinanceiro.Close;
      IBQryVerFinanceiro.ParamByName('codigo').Value := fin;
      IBQryVerFinanceiro.Open;

      IBQryVerFicha.Close;
      IBQryVerFicha.ParamByName('venda').Value := fic;
      IBQryVerFicha.Open;

      IBQryVerCorretora.Close;
      IBQryVerCorretora.ParamByName('codigo').Value := cor;
      IBQryVerCorretora.Open;

      IBQryVerItensFicha.Close;
      IBQryVerItensFicha.ParamByName('ficha').Value := ite;
      IBQryVerItensFicha.Open;

      IBQryVerCo.Close;
      IBQryVerCo.ParamByName('consultor').Value:= 
IBQryVerClienteID_CONSULTOR.Value;
      IBQryVerCo.Open;

      consultor.Caption:= Contar(IBQryVerCoNOMECONSULTOR.Value);

      QuickRep1.PrinterSetup;
      QuickRep1.Preview;
    end;

  finally
    frm_RelFichaVenda.Free;
  end;
end;

Ricardo Mendes
TotalSat - Rastreamento de Veículos
Departamento de Informática
E-mail: [EMAIL PROTECTED] 
Tel. (41) 2109-7717
  ----- Original Message ----- 
  From: Eduardo Silva dos Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 16, 2007 3:02 PM
  Subject: Re: [delphi-br] Printer index out of range


  fale pra gente como é feita essa rotina de impressão.

  qual componente vc usa.

  Em 16/03/07, Ricardo Mendes <[EMAIL PROTECTED]> escreveu:
  >
  > Galerta, tenho uma aplicação rodando em estilo client/server, feita em
  > D7.
  > Estou com o seguinte problema, quando o usuario ta dentro de um cadastro e
  > mandar gerar a impressão desse cadastro acontece do sistema travar e a
  > mensagem Printer index out of range aparecer para o usuário. Ai eu tenho q
  > finalizar o aplicativo pelo gerenciado de tarefa.
  > Alguem sabe me informar como resolver isso ou q está causando isso..
  > Agradeço a atenção
  >
  > Ricardo Mendes
  > TotalSat - Rastreamento de Veículos
  > Departamento de Informática
  > E-mail: [EMAIL PROTECTED] <r.mendes%40totalsat.com.br>
  > Tel. (41) 2109-7717
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Eduardo Silva dos Santos
  DRD Sistemas.
  (27) 3218-4201
  MSN: [EMAIL PROTECTED]
  Site: http://www.drdsistemas.com/

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a