Friday, January 12, 2007

Zjištění a nastavení aktuální tiskárny

Jestliže máte k dispozici více tiskáren (například při práci v síti), jistě se vám bude hodit následující tip. Ukážeme si jak zjistit, která z tiskáren je nastavena jako výchozí, a také jak ze seznamu dostupných tiskáren jednu vybrat a nastavit ji jako výchozí. Znovu již tradičně využijeme knihovnu Printers a také Messages. První funkce nám zjistí aktuální výchozí tiskárnu, druhá zase zajistí, že tiskárna předaná parametrem bude zvolena jako výchozí. Samotné použití je vidět ze zdrojového kódu. Na formulář přidejte dvě tlačítka, Label a ComboBox. Po stisknutí prvního tlačítka se do Labelu vypíše aktuální výchozí tiskárna, po stisknutí druhého tlačítka bude tiskárna, která je zvolena v ComboBoxu, nastavena jako výchozí. Samotný ComboBox je vyplněn dostupnými tiskárnami v události OnCreate formuláře.