Kod: Tümünü seç
/// defaul yazıcı bul
function GetDefaultPrinterName : string;
begin
if (Printer.PrinterIndex > 0)then begin
Result :=
Printer.Printers
[Printer.PrinterIndex];
end else begin
Result := '';
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//raporlama
frxReport1.Clear;
frxReport1.cl
frxReport1.LoadFromFile('mektup.fr3',false);
frxReport1.PrintOptions.Printer:=GetDefaultPrinterName;
frxReport1.SelectPrinter;
(frxReport1.FindObject('memo6') as Tfrxmemoview).Memo.Text:=DBedit3.Text;
(frxReport1.FindObject('memo11') as Tfrxmemoview).Memo.Text:=edi1.Text+' - '+DBedit3.Text+' '+DBedit3.Text+' ( NO : '+DBedit1.Text+')';
(frxReport1.FindObject('memo10') as Tfrxmemoview).Memo.Text:=edit6.Text;
(frxReport1.FindObject('memo14') as Tfrxmemoview).Memo.Text:=edit8.Text;
(frxReport1.FindObject('memo15') as Tfrxmemoview).Memo.Text:=edit17.Text;
frxReport1.PrintOptions.ShowDialog:=false;
frxReport1.Print;
end;Kodlarım bunlar...
Sorun 1 : Sorunum ise şu ben yazdır dediğimde ne hikmet ise yazıcıya belgeyi yollamıyor...ve kendim raporu önizleme yapıp yazdır dedikden sonra ancak direk printkomutu ile yazı yollaya biliyorum... ama ben direk yazdır dediğimde hiç bir şey gözükmeden direk yazdırmasını istiyorum...
Sorun2 : diğer bir sorun ise veritabanında arama yapıpyorum kayıtları dbedit nesnelerine alıyorum ve daha sonra yazdır dediğimde ise ilk ne yazdırdım ise hem aynı şekilde yazıcıya gidiyor, hiç birşey değişmeden ilk yazdırdığım ne ise oraya gidiyor...
şimdiden vereceğiniz cevaplar için tşkler...
Kod: Tümünü seç
.... ÇÖZÜLDÜ....
frxReport1.PrepareReport; /// bunu yazmadığım için hata alıyormuşum