Colocando a opção de configurar impressão

Disponibilize a opção de configurar a impressão nos sistemas..

No formulário, adicione o componente PrintDialog da paleta de componentes Dialogs e mude a propriedade name para Impressora.

Em uma opção de menu ou em um botão coloque o seguinte código:

Var

   Res:DWORD;

   Device : Array[0..255] of Char;

   Driver : Array[0..255] of Char;

   Port : Array[0..255] of Char;

   WindowsStr : Array[0..255] of Char;

   hDeviceMode : THandle;

begin

     Impressora.Execute;

     //Pega Dados da impressora atual

     Printer.GetPrinter(Device,Driver,Port,hDeviceMode);

     //Monta String exigida pela API do Windows

     StrCat(Device,',');

     StrCat(Device, Driver);

     StrCat(Device,',');

     StrCat(Device, Port);

     StrPCopy(WindowsStr, 'windows');

     //Torna Impressora default

     WriteProfileString(WindowsStr, 'device', Device);

     SendMessageTimeout(HWND_BROADCAST, WM_WININICHANGE, 0, DWORD(@WindowsStr), SMTO_NORMAL, 1000, Res);

end;

Suba no código e coloque PRINTERS na clausula USES.

OBS.: Você deve ter uma impressora instalada para testar o funcionamento.