Uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'rundll32','msprint2.dll, RUNDLL_PrintTestPage',nil, SW_SHOWNORMAL); end;