列印內容寫在報表中,使用frrptdesign: tfrreport、frpreview1: tfrpreview;兩個控制項。
在窗體上放乙個frpreview1,
1.報表模板首先從檔案載入frrptdesign.loadfromfile(barcodefile);
2.動態賦值:
var
frview: tfrview;
templatefile: string;
begin
frrptdesign.loadfromfile(templatefile);//從模版檔案載入報表框架
frview := frrptdesign.findobject('studentname');
if frview <> nil then
frview.memo.text := 'chinmusam';
.....
frrptdesign.preview := frpreview1;//指定為窗體介面上的顯示區域
frrptdesign.showreport;
if bassignprinter then //如果指定了印表機
begin
setdefaultprinter(iniconfig.defaultprinter);//從配置檔案中讀取指定的網路印表機名稱 一般形如: \\it-02993\hpj200
end;
if frrptdesign.changeprinter(printer.printerindex, printer.printers.indexof(iniconfig.defaultprinter)) then //列印時,實時調配為指定的印表機進行列印
for i := 1 to icopy do//列印的份數
frrptdesign.preview.print; //即可將報表內容直接送往印表機(介面並不顯示報表的內容)
end;
附上setdefaultprinter方法:
uses printers, windows
procedure setdefaultprinter(sprinter: string);
var localprinter: tprinter;
device: array[0..255] of char;
driver: array[0..255] of char;
port: array[0..255] of char;
s : array[0..255] of char;
hdevicemode: thandle;
begin
if trim(sprinter) <> '' then
begin
localprinter := tprinter.create;
tryif localprinter.printers.indexof(sprinter) >-1 then
begin
localprinter.printerindex := localprinter.printers.indexof(sprinter);
localprinter.getprinter(device, driver, port, hdevicemode);
strcopy (s, device);
strcat (s, ',');
strcat (s, driver);
strcat (s, ',');
strcat (s, port);
writeprofilestring('windows', 'device', s);
strcopy (s, 'windows');
sendmessage (hwnd_broadcast, wm_wininichange, 0, longint(@s));
end;
finally
freeandnil(localprinter);
end;
end;
end;
惠普區域網共享印表機設定 惠普印表機區域網共享
2017 01 18 10 42 19 印表機是很多辦公室人員都會用到的列印裝置,而惠普hp1020印表機就是比較受歡迎的一款印表機,然而有很多windows7系統使用者並不知道要怎麼安裝惠普hp1020印表機,其實方法很.2017 01 04 11 19 48 有win7旗艦版32位系統使用者在安...
區域網共享印表機只能列印第一頁
這幾天辦公室的人老喊 小郝,我的電腦是不是壞了,怎麼共享印表機列印word文件只能列印一頁,但在重灌系統之前一直都是好用的,本以為是印表機沒有設定好可是弄了半天也沒弄好!最後在網上找到了答案!原來是七月份乙個補丁更新出的毛病,到裝印表機的那台電腦上面去,把那三個補丁刪了,然後重啟就ok了。三個補丁如...
區域網印表機共享怎麼設定?如何設定印表機共享?
印表機是什麼?印表機 printer 是計算機的輸出裝置之一,用於將計算機處理結果列印在相關介質上。衡量印表機好壞的指標有三項 列印分別率,列印速度和雜訊。區域網印表機共享怎麼設定?如何設定印表機共享?要實現兩台印表機或者是多台印表機共享,首先要了解如何設定並共享區域網內有印表機電腦的印表機,之後需...