急，请问如何打印DBGRID中的内容？

Question

急，请问如何打印DBGRID中的内容？

Answer 1

是打印，不是显示
要把DBGRID中的内容直接打印出来~！
比方说类似这个dbgrid1.print()

Answer 2

哈哈我現在隻能做到把DBGRID中的内容轉換到EXCEL,然後在打印，樓主的功能似乎不太容易達到
密切關注

Answer 3

To baojianjun(包子) :
   把DBGRID中的内容轉換到EXCEL,然後在打印,    能帮点忙，给点原码例子吗。谢谢啦。可以 另辟栏目给分的。

Answer 4

PROCEDURE TGCFP.KIT_DBG_TO_FILE(SRC_DBE:TDATASET; FHEAD,FNAME:STRING);
VAR
LINE_TXT:STRING;
I:INTEGER;
FWRITETO: TEXTFILE;
BEGIN
  LINE_TXT:='';
  ASSIGNFILE(FWRITETO,FNAME);
  REWRITE(FWRITETO);  LINE_TXT := FHEAD;
  WRITELN(FWRITETO,LINE_TXT);
  FLUSH(FWRITETO);  WITH SRC_DBE DO
  BEGIN
    FIRST;
    WHILE NOT EOF DO
    BEGIN
       LINE_TXT := '';
       FOR I:=0 TO SRC_DBE.FIELDDEFS.COUNT-1 DO
           LINE_TXT := LINE_TXT + '"'+ TRIM(FIELDBYNAME(SRC_DBE.FieldDefs.Items[I].name).ASSTRING)+'"'+ ',';
       WRITELN(FWRITETO,LINE_TXT);
       FLUSH(FWRITETO);
       NEXT;
    END;
  END;
  CLOSEFILE(FWRITETO);
END;

Answer 5

FHEAD是導出後欄位的顯示名稱，我調用的時候如下：IF SAVEDIALOG1.Execute THEN
     BEGIN
     X:=SAVEDIALOG1.FileName;
     IF ((X[LENGTH(X)]='V') OR (X[LENGTH(X)]='v')) AND ((X[LENGTH(X)-1]='s') OR (X[LENGTH(X)-1]='S'))
        and ((X[LENGTH(X)-2]='c') OR (X[LENGTH(X)-2]='C')) and (X[LENGTH(X)-3]='.') then
        X:=SAVEDIALOG1.FileName
     else
        X:= SAVEDIALOG1.FileName+'.csv';
    END;
GC.KIT_DBG_TO_FILE(QRY_CARD,'盤點卡,料號,站,實盤量,帳號,盤點時間,創建時間,狀態',X);
記得增加一個SAVEDIALOG控件，至於如何運用，就看你自己了，自己多實踐實踐：）

Answer 6

Ehlib中的DBGridEh，配合PrintDBGridEh就可以打印出来.

Answer 7

现在问个简单点的，如何把MEMO中的内容打印出来！
谢谢！

Answer 8

DBGridEh，配合PrintDBGridEh就可以打印

Answer 9

直接打开打印机画布，然后在上面画字符
canvas.textout(),然后旧随便你怎么写了
还可以画画呢？
记得在单元里面引用printer单元。
看看delphi的printer帮助就可以了

Answer 10

哦，不过如何引用PRINTER单元，我引用之后提示要printer.dcu
我没找到！
谢谢！

Answer 11

DBGrid好像不能打印，得用报表打印数据库内容

Answer 12

DBGrid好像不能打印，得用报表打印数据库内容