VC 绘制曲线图并打印曲线，支持统计曲线，预览、载入外部数据生成曲线、存盘、打印出曲线图形等功能，可学习的地方还挺多。在VC 6.0下可顺利编译代码。

SuperReport VC 报表控件，带有源代码部分，这个控件的特点：支持多种报表格式，支持数据和格式完全分离，支持实现规则和不规则的报表，固定的和不固定报表，还可以在报表中添加图片、动画甚至是音乐效果；并完美支持报表打英预览、保存、更新和页面设置等功能……

基于Delphi写的发票查询及打印程序，数据库使用SqlServer，主程序分为发票数据查询、发票结报系统、发票打印系统，各个子系统相互独立，源码包内的文件夹对应其各自源代码。 　　在发票打印模块中，字段名 类型长度 中文含义 　　Proxy_No A(5) 委托书编号 　　Ratepaying_No A(6) 纳税代码 　　Enterprise A(50) 企业名称 　　Address A(50) 地址 　　Register_No A(15) 税务登记证号 　　Phone_No A(12) 电话 　　Linkman A(8) 联系人 　　Charge_Standard $ 收费标准 　　Proxy_Start A(10) 委托代理开始时间 　　Proxy_End A(10) 委托代理结束时间 　　Charge_Date A(10) 收费日期 　　Change_Money $ 收费金额 　　Voucher_No A(8) 凭证号码

Delphi基于Excel组件的图表生成实例，Excel chart，点击按钮就会打开Excel表格绘制出图表。

Delphi 设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码： 　　procedure TForm1.SetPaperSize(cx, cy: Integer); 　　var 　　 a,b,c: array[0..255]of char; 　　 bb: Cardinal; 　　 ee: PDEVMODE; 　　begin 　　 printer.PrinterIndex := printer.PrinterIndex; 　　 printer.GetPrinter(a,b,c,bb); 　　 ee:= GlobalLock(bb); 　　 ee^.dmPaperSize := DMPAPER_USER; 　　 ee^.dmPaperLength := cy*10; 　　 ee^.dmPaperWidth := cx*10; 　　 ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or 　　 DM_PAPERWIDTH or 　　 DM_PAPERLENGTH; 　　 ee^.dmFields := ee^.dmFields or DMBIN_MANUAL; 　　 ee^.dmDefaultSource :=DMBIN_MANUAL; 　　 GlobalUnlock(bb); 　　 printer.PrinterIndex := printer.PrinterIndex; 　　end;

Delphi打印预览测试程序的源码，自动获取默认的打印机信息，可对文件进行预览，具体功能请参见测试截图所示。

VB中的ADO控件和DATAGrid数据打印报表的源代码，一个VB打印的例子，报表生成的例子，数据取自Access数据库，使用Ado将数据从Access读出后绑定在DataGrid报表中，在利用打印组件输出到打印机，效果截图如上所示。

vb编写的小程序，用来完全控制打印的对话框实例，设置打印范围，设置打印份数，即可打印，主要是学习打印方面的开发，没什么实际意义，测试之前请事先安装好打印机。

VB列出系统默认打印机脱机打印，支持prn文件，只要你选择了支持的文件，程序会自动检测打印机型号进行打印，一个比较基础的小例子，希望能增加你的编程知识。

Delphi 利用图表分析产品销售走势,根据数据库中，各个商品的销售状况，生成一个曲线图表，直观快速的展现产品的销售走势： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 DBChart1.Title.Text.Text:='『' ComboBox1.Text '』利用图表分析产品销售走势'; 　　 with ADOQuery1 do 　　 begin 　　 Close; 　　 SQL.Clear; 　　 SQL.Add('select 日期 , sum(金额) as 销售金额 from (select 日期 , 金额 from xsd where 商品名称=''' ComboBox1.Text ''') group by 日期'); 　　 Open; 　　 end; 　　 Series1.XLabelsSource:='日期'; 　　 DBChart1.Series[0].YValues.valuesource:='销售金额'; 　　 DBChart1.Series[0].DataSource:=ADOQuery1; 　　end;