Printing Delphi

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;