我想要把我FORM 裡的內容列印出來(FORM 裡有圖片及文字) 但若未連上印表機時 照理說它應該會 出現 (沒有安裝印表機 請安裝印表機....的對話框) 試問要加打什麼才會出 現這個對話框啊 ? P.S(以下是我的程式碼,請各位大大幫幫我 看還需要修改哪些) : procedure TForm1.ToolButton8Click(Sender: TObject); begin if PrintDialog1.Execute then Print; end; 我是個DELPHI新手 ..請各位大大幫幫我...

if Printer.Printers.Count = 0 then ShowMessage('沒有安裝印表機 請安裝印表機');

JustMade 大大 我已把你說的那段程式碼加入到PrintDialog下 如印表機為連接時 他確實已會跑出"沒有安裝印表.."的對話框，但印表機連接時 他卻沒有任何反應耶 所以程式還是有問題耶 請您在次幫幫我啦  拜託了    程式碼如下:    procedure TForm1.ToolButton8Click(Sender: TObject); begin if Printer.Printers.Count = 0 then ShowMessage('沒有安裝印表機 請安裝印表機');    end;    PS(我曾試過以下的方法,後來是可以列印，但 如未連接印表機時 他"又"不會跑出"沒有安裝印表機 請安裝印表機"的對話框)    procedure TForm1.ToolButton8Click(Sender: TObject); begin if Printer.Printers.Count = 0 then ShowMessage('沒有安裝印表機 請安裝印表機') else Print;    end;    拜託各位大大 幫幫手

那句只是在沒安裝印表機時顥示訊息，列印的程式碼可用回你的。 至於印表機的狀態就沒那麼簡單了。 本地印表機的偵測可參考 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17910 網路印表機就更煩了，Window 本身的偵測都不準確，何況是從 Window 拿資料的程式呢。