PrintDialogda Seçilen Yazıcıya Çıktı Gönderme

[sunbeki]

Değerli arkadaşlar merhaba,

Projemde QuickRep ile oluşturduğum raporu print dialog penceresinde seçilen yazıcıya göndermek istiyorum. Ancak print dialog penceresinde hangi yazıcıyı seçersem seçeyim çıktı varsayılan yazıcıya gönderiliyor.  Bu işlemi nasıl yaparız?

Teşekkür ederim.

[ahmet6513]

(03-02-2023, Saat: 15:06)sunbeki Adlı Kullanıcıdan Alıntı: Değerli arkadaşlar merhaba,

Projemde QuickRep ile oluşturduğum raporu print dialog penceresinde seçilen yazıcıya göndermek istiyorum. Ancak print dialog penceresinde hangi yazıcıyı seçersem seçeyim çıktı varsayılan yazıcıya gönderiliyor.  Bu işlemi nasıl yaparız?

Teşekkür ederim.

Fast Reportda Aşağıdaki Gibi Yazdırıyorum quickreport u uzun zaman oldu kullanmayalı  belki örnek olur 

 

Procedure  MyPrint(Printer:String;Rapor:String);
Begin
 frxReport1.LoadFromFile(Rapor);
 frxReport1.PrintOptions.Printer := Printer;
 frxReport1.PrepareReport;
 frxReport1.PrintOptions.ShowDialog := False;
//  frxReport1.SHOWrEPORT;
frxReport1.Print;
End;

[sunbeki]

@ahmet6513

Hocam teşekkür ederim. Sizinkine benzer bir mantıkla sorunu çözdüm.

   if PrintDialog1.Execute then
     begin
        QuickRep1.PrinterSettings.PrinterIndex := Printer.PrinterIndex ;
        QuickRep1.Print ;
     end ;

[ahmet6513]

(03-02-2023, Saat: 15:42)sunbeki Adlı Kullanıcıdan Alıntı: @ahmet6513

Hocam teşekkür ederim. Sizinkine benzer bir mantıkla sorunu çözdüm.

   if PrintDialog1.Execute then
     begin
        QuickRep1.PrinterSettings.PrinterIndex := Printer.PrinterIndex ;
        QuickRep1.Print ;
     end ;

rica ederim