+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : QuickReport كيف أظهر كل الصفحات من دون طباعة ؟ (/showthread.php?tid=5438)
QuickReport كيف أظهر كل الصفحات من دون طباعة ؟ - hmidadz - 03-08-2013
السلام
عندما اعمل بها يظهر لي فقط الصفحة الاخيرة
لديا قاعدة بيانات اكسس متكونة اكتر من صفحة عندما اضعها في QuickRep1 واكتب الامر QuickRep1.previews تظهر الصفحة الاخيرة فقط ولما اكتب QuickRep1.print تطبع كل الصفحات
كيف أظهر كل الصفحات من دون طباعة ؟
كيف انتقل الى صفحة جديدة
toptrav عدد الاسطر
if(toptrav > 600)then
begin
toptrav:=50;
end; }
الصورةbegin
toptrav:=50;
end; }
كود :
http://www11.0zz0.com/2013/08/03/14/582683335.pngQuickReport كيف أظهر كل الصفحات من دون طباعة ؟ - بن دهيبة - 07-08-2013
وعليكم السلام ورحمة الله تعالى وبركاته
ضف الكود التالي:
كود :
QuickRep1.DataSet:= ADOTable1;اذا الجدول كان فى فورم مستقل مثلا Form3
نضع
كود :
QuickRep1.DataSet:= Form3.ADOTable1;QuickReport كيف أظهر كل الصفحات من دون طباعة ؟ - hmidadz - 11-08-2013
كود :
procedure Timpre.SpeedButton1Click(Sender: TObject);
var idt,nat:string;
id,nexp,pge:integer;
begin
if (Trim(ComboBox1.Text)='') or (Trim(Edit1.Text)='') then
ShowMessage('Entrer le mois et le N° !')
else
begin
pge:=1;
imprelv.mois.Caption:='Mois : '+ComboBox1.Text;
imprelv.nexp.Caption:=Edit1.Text;
nexp:=StrToInt(Edit1.Text);
DataM.Travtbl.Filter:='Mois like '+QuotedStr(ComboBox1.Text+'*')+' and NExploitation='+IntToStr(nexp);
DataM.Travtbl.Filtered:=true;
DataM.Travtbl.Sort:='Jour';
toptrav:=imprelv.lbljr.Top+50;
DataM.Travtbl.first;
while not (DataM.Travtbl.eof) do
begin
CreateTrav();
id:=DataM.Travtbl.FieldValues['IdT'];
DataM.Tractbl.Filter:='IdT = '+IntToStr(id);
DataM.Tractbl.Filtered:=true;
DataM.Maintbl.Filter:='IdT = '+IntToStr(id);
DataM.Maintbl.Filtered:=true;
DataM.Approvtbl.Filter:='IdT = '+IntToStr(id);
DataM.Approvtbl.Filtered:=true;
CreateFils(toptrav);
getMax();
CreateShp();
if(toptrav > 600)then
begin
toptrav:=50;
end;
DataM.Travtbl.Next;
end;
DataM.Travtbl.first;
imprelv.pge.Caption:=IntToStr(pge);
imprelv.QuickRep1.Preview;
imprelv.Free;
imprelv:=Timprelv.Create(Application);
DataM.Travtbl.Filtered:=false;
DataM.Travtbl.Sort:='IdT';
end;
end;