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.