各位大大好...
小弟想請教以下這是我參考的範例
他會去做列印RichEdit1上的文字...但小弟不懂RichEdit1.Print(Form1.Caption);
為什麼要Print(Form1.Caption)...跟Form1.Caption有什麼關係
然後小弟其實是要研究列印image的,所以先從書上下手..但並沒有
這裡我也爬文了...但其他大大PO的,我依然不懂其用法...
可否請哪位大大教教我該如何去做...如果有附上說明那更感激了^^~

procedure TForm1.btnPrintClick(Sender: TObject);
begin
if (PrintDialog1.Execute) then
begin
RichEdit1.Print(Form1.Caption);
end;
end;

各位大大..是我發問的不好...還是不對地方呢?
怎麼都沒有大大能幫幫我...拜託!拜託!

您去安裝個免費的 PDF 產生器 , 例如 CutePDF, 免得浪費紙張看結果
http://www.cutepdf.com/products/cutepdf/Writer.asp#download
( 要安裝 CuteWriter.exe 和 Converter.exe)
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Print('test'); <== 預設檔名為 test.pdf
RichEdit1.Print('test2'); <== 預設檔名為 test2.pdf
end;
如果您要列印到紙張, 參數設定什麼意義不大

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

列印 Image 方法
uses
Printers;
procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
Image1.Picture.LoadFromFile('c:\1.bmp');
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Image1.Picture.Graphic);
finally
EndDoc;
end;
end;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

喔喔..我懂了..那是取文件名稱..是這樣嗎?...
那關於..列印image的程式碼..大大可以請您說明一下嗎?
小弟功力不足...實在有點吃力...
勞煩大大了..感恩大大..感謝你
===================引 用 文 章===================

您去安裝個免費的 PDF 產生器 , 例如 CutePDF, 免得浪費紙張看結果
http://www.cutepdf.com/products/cutepdf/Writer.asp#download
( 要安裝 CuteWriter.exe 和 Converter.exe)
procedure TForm1.FormCreate(Sender: TObject);
begin
? RichEdit1.Print('test');??? <== 預設檔名為 test.pdf
? RichEdit1.Print('test2');?? <== 預設檔名為 test2.pdf
end;
如果您要列印到紙張, 參數設定什麼意義不大