quickreport yazıcı değiştirme

[anticom]

arkadaşlar ilk önce selamlar, benim sorunum şu. ben quick reportta iki tane rapor hazırladım biri kargo fişi biride fatura benim yapmak istediğim faturayı başka yazıcıya kargo fişini başka yazıcıya göndermek istiyorum. quick reportta bunu kodla nasıl yaparım. kullanıcı değiştirmek için uğraşmayacak. şimdiden teşekkür ederim.

[conari]

Kod: Tümünü seç

QuickRep1.PrinterSettings.PrinterIndex := 1;

-1 sanırım default du.

[anticom]

paylaşımınız için sağolun ama bne printerindexe atanacak değeri yazıcı isminden nası bulabirim. çünkü kullanıcı bir kere ayar yapıyo ve o ayarda sadece yazıcı ismini kayıt ettiriyorum başka bir bilgi kayıt ettrimem gerekir mi? yoksa yazıcı ismiyle olur mu? bilmem anlatabildim mi?
saygılarımla

[Battosai]

Kod: Tümünü seç

QuickRep1.PrinterSettings.PrinterIndex:=QuickRep1.PrinterSettings.indexof('Priter adı') 

gibi bir yapısı olması lazım bir deneme yapın istersseniz...

[anticom]

Kod: Tümünü seç

QuickRep1.PrinterSettings.PrinterIndex:=QuickRep1.PrinterSettings.indexof('Priter adı') 

gibi bir yapısı olması lazım bir deneme yapın istersseniz...

indexof komutunu kabul etmiyor arkadaşlar. pardon bu arada bi süre için bakma şansım olmadı.

[mrmarman]

Uses'a Printers ekle. Sonra da dilediğin bir yerde ShowMessage( Printer.Printers.Text ); de tüm tanımlı yazıcıları göreceksin. Yani Printer.Printers içerisinde yazıcılar listesi mevcuttur. PrinterIndex'i -1 olduğu zaman varsayılan yazıcı seçili demek olduğundan yola çıkarak buradan dilediğin sıradakini kullanıcıya seçtirirsen o index nosunu QuickReport'un PrinterIndex'ine atayarak ilgili yazıcıya çıktı almayı deneyebilirsin.

Bunu QuickReport'un BeforePrint olayında yapabilirsin.

Kod: Tümünü seç

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   with QuickRep1.PrinterSettings do
         PrinterIndex := 1; // veya hangi yazıcı ise...
end;

[anticom]

arkadaşlar, ben delphi kodlasından kendim 1 veya 0 değerini atadığm zaman access volition hatası veriyor. anlamadım lütfen yardım edin.