Mega Code Archive

 

Categories / Delphi / Printing

 

Bilgisayara bağlı yazıcılar

Programınızda yazıcı kullanmak istiyorsunuz ancak bağlı yazıcıları öğrenmek istiyorsanız aşağıdaki kod size yardımcı olacaktır. Printers unit'i yazıcılarla ilgili isteyebileceğiniz kontrollerin neredeyse hepsini içerir. İşe uses satırına Printers 'ı ekleyerek başlayalım. Aşağıdaki kod varsayılan yazıcıyının ismini bulmanızı sağlar. function Varsayilan : string; begin if (Printer.PrinterIndex > 0) then Varsayilan := Printer.Printers[Printer.PrinterIndex] else Varsayilan := ''; end; Eğer bilgisayarınıza bağlı olan yazıcıların listesini almak isterseniz önce formunuza bir combobox ekleyin daha sonra aşağıdaki kodu istediğiniz bir event'e bağlayabilirsiniz. ComboBox1.items := Printer.Printers;