Ir para conteúdo
Fórum Script Brasil
  • 0

Desenhar relatório


Fuzileir0

Pergunta

Pessoal antes de mais nada parabéns pelo fórum que me ajudou durante esse ano inteiro...

Agora estou com mais dúvida...

Se eu quero criar uma unit, vou em File New Unit... Se eu quiser um form eu vou em file new form

Mas... como que eu crio um quickreport?

Eu poderia muito bem criar um form e jogar o TQuickRep la dentro, mas não vai funcionar para o que eu quero..

O que eu quero é desenhar somente o quickreport, como mostra a imagem...

Como faço isso? Fui la em file => new mas não tem quick report...

quickreporthellppp.jpg

Como podem ver na imagem, não existe uma borda de form porque isso aí não é form... e é isso que quero...

o código é esse:

unit uQuickReport;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBClient, QRPrntr;

type
  TqrpExemplo = class(TQuickRep)
    cdsExemplo: TClientDataSet;
    cdsExemploid_registro: TIntegerField;
    cdsExemplodes_registro: TStringField;
    cdsExemplodta_registro: TDateField;
    qrbndTitulo: TQRBand;
    qrbndTituloColuna: TQRBand;
    qrlblTitulo: TQRLabel;
    qrlblId: TQRLabel;
    qrlblDescricao: TQRLabel;
    qrlblData: TQRLabel;
    QRBand11: TQRBand;
    QRDBText31: TQRDBText;
    QRDBText32: TQRDBText;
    QRDBText33: TQRDBText;
    procedure QuickRepPreview(Sender: TObject);
  private

  public

  end;

var
  qrpExemplo: TqrpExemplo;

implementation

uses ufrmPreview, Unit1, dm;

{$R *.DFM}

procedure TqrpExemplo.QuickRepPreview(Sender: TObject);
begin

    frmPreview := TfrmPreview.Create(Application);

  with frmPreview do
  begin
        qrprvwPadrao.QRPrinter := TQRPrinter(Sender);
      ShowModal;
  end;
end;
end.

Valeu!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...