Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 nao vai funcionar para o que eu quero..
O que eu quero eh desenhar somente o quickreport, como mostra a imagem...
Como faço isso? Fui la em file => new mas nao tem quick report...
/applications/core/interface/imageproxy/imageproxy.php?img=http://img99.imageshack.us/img99/8536/quickreporthellppp.jpg&key=e5f92804a1a604a31477ddda0b92fc3e3fae114741d133e6ce2df0a252353bb1" alt="Imagem Postada" />
Como podem ver na imagem, nao existe uma borda de form pq 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!
Carregando comentários...