delphi 生成报表打印预览 [问题点数:40分,结帖人hefeng_aspnet]

Bbs1
本版专家分:0
结帖率 88.89%
Bbs4
本版专家分:1921
c#报表制作、页面增减、预览打印
c#<em>报表</em>制作、页面增减、<em>预览</em>与<em>打印</em>: c#编码实现<em>报表</em>展示。 可自由增加<em>打印</em>页面,包括横向和纵向页面。 可以在<em>报表</em>页面内放入图片。 实现了<em>打印</em>时添加水印功能。 实现了对横向页面的<em>打印</em>处理。 实现<em>打印</em><em>预览</em>。
Delphi 自定义fastReport打印预览
开发环境:Delphi2010 自定义的<em>预览</em>窗,并演示了一些简单的缩放功能
SpringMVC+jspereport,实现报表分页查看、文件(pdf、excel、word)导出,以及html展示和调用浏览器打印功能实现打印
SpringMVC+jspereport,实现<em>报表</em>分页查看、文件(pdf、excel、word)导出,以及html展示和调用浏览器<em>打印</em>功能实现<em>打印</em>,报文都是采用ireport5.6.0设计
FastReport 自定义预览打印窗口
其实也没有什么,只是针对<em>打印</em>的窗口缩放写了一点代码,而且还有些问题,希望哪位大虾修改一下!
VFP自制报表预览工具条(纯代码)
VFP系统自带<em>预览</em>窗口时间用长了有点别扭,是否考虑用纯代码开发的<em>预览</em>工具条呢
asp.net报表打印(table方式)
<em>报表</em><em>打印</em>,用Table画的.大家有空可以看看,可以运行的,我已经调试好了
Report Machine 3.0 f(for delphi XE5- XE10)RM 报表打印组件
Report Machine 3.0 f(for <em>delphi</em> XE5- XE10)RM <em>报表</em><em>打印</em>组件 支持XE10 解压后运行 ProjectGroup_xe10.groupproj 然后 安装 rm_d_xe7 编译 rm_r_xe7 设置lib到 source 目录
c# 不预览 直接打印rdlc 不用reportviewer
直接<em>打印</em>rdlc ,不用reportviewer <em>预览</em>
delphi源码-教你实现打印预览
<em>打印</em><em>预览</em>是软件开发必不可少的重要功能,但我们使用的<em>报表</em>控件都是英文的。 <em>delphi</em>源码-教你实现<em>打印</em><em>预览</em>
JS打印报表控件
不错的js表报<em>打印</em>控件,试用简单.好用,找了好久,只有上传到空间才能用. 找了很久.基本<em>打印</em>功能都能实现,分页<em>打印</em>.<em>打印</em><em>预览</em>. google浏览器测试效果不错.
Quick Report V4.05 FS For D2005 专业版
一款完全用Delphi编写的<em>报表</em><em>生成</em>工具,可轻松迅速的<em>生成</em>输出数据,可<em>生成</em><em>打印</em><em>预览</em>检查后再<em>打印</em><em>报表</em>。可将数据导出到其他格式(如ASCII,CSV和HTML等)文件中。
delphi初学者 Fastreport报表打印用法实例
给朋友帮忙做的一个<em>报表</em><em>打印</em>程序,现将完整源码奉献给大家,可直EXE接运行,比较适合初学者学习Delphi 开发桌面程序学习, 控件用到 fastreport,raize,Ehlib 主要介绍fastreport<em>报表</em><em>打印</em>,数据库连接开发,程序注册等等,
fastreport4自定义预览窗体
这个自定义<em>预览</em>窗体是为了实现套打功能而弄的,<em>预览</em>时先调用这个自定义的,实际<em>打印</em>时再调用默认的。 它是根据fastreport 4.9.32源代码改成的,基本是原来的代码,源代码中实现的功能都实现了,你下载后绝对不后悔。
基于MFC对话框的报表打印预览功能
基于MFC对话框的<em>报表</em><em>打印</em>和<em>预览</em>功能
DELPHI PDF文件打印
DELPHI 正确<em>打印</em>PDF文件,解决PDF文件<em>打印</em>顺序问题。
pb 报表打印预览
非常经典的 pb <em>报表</em><em>打印</em><em>预览</em>,功能强大,很实用。
jxl预览打印报表
采用jxl包实现<em>报表</em>的<em>预览</em><em>打印</em>功能,从数据库中读取数据,根据用户的自定义样式,<em>生成</em><em>报表</em>,在页面生<em>预览</em>,同时可以点击<em>打印</em>。
自用的通用打印预览模块源码
说 明:这是我平常用的通用<em>打印</em><em>预览</em>模块,用了几年了哦如果大家有好的改进,可要传我一份哦可选择<em>打印</em>或<em>预览</em>,调用只需一条语句,可输出到EXCEL,也可输出到快照,对方不需安装ACCESS即可<em>预览</em><em>报表</em>。在<em>打印</em>前选择<em>打印</em>多少份,而不是在按了<em>打印</em>后才选择份数  
如何用VS自带报表制作打印功能
如何用VS自带<em>报表</em>制作<em>打印</em>功能,包括代码片段跟他人链接介绍(C#之VS自带RDLC<em>报表</em>制作流程)
在access中创建窗体、建立报表并实现打印
在access中创建窗体、建立<em>报表</em>并实现<em>打印</em>
delphi fastreport4 打印二维码 条形码
二维码<em>生成</em> fastreport应用
C# RDLC报表打印实例
C# RDLC<em>报表</em><em>打印</em>实例 项目描述 C# RDLC <em>报表</em><em>打印</em>实例 本实例上传带的数据库是SQL SERVER 2005<em>生成</em>的, 在本实例中,包括了基本的<em>报表</em>分组、统计、表达式获得系统时间、获得本机IP。 RDLC 1、简单易用的控件,特别是Table控件,非常方便字段在<em>报表</em>上的排列; 2、灵活的可定制性,用XML来描述一个<em>报表</em>相关的一切,不用说了吧? 3、高度可编程性,在你的项目中,甚至不需要有一个<em>报表</em>文件,通过代码就可以实现<em>报表</em><em>生成</em>、<em>预览</em>和<em>打印</em>等一系列操作; 4、支持DrillThrough数据钻取功能; 5、导出的Excel文件格式非常完美,任何其它<em>报表</em>在这方面都不能与之比拟,而且并不需要安装Excel
打印报表控件(推荐)
在WEB系统中,<em>打印</em>的确是个烦人的问题----特别是你的应用环境又有很多种类的<em>打印</em>机。如果自己开发<em>打印</em>控件,可能因为项目时间紧而来不及。前段时间 有机会接触了一下WEB<em>打印</em>。在博客园、CSDN以及各个论坛上找了老半天,终于顺利的完成了公司项目。现在就结合我的应用体验,将市面上的所有的免费打 印控件为大家做一个介绍。
fastReport 汉字显示不全解决办法
fastReport 汉字显示不全解决办法
ireport5.6 导出excel,pdf
使用的是jboss+zk, 需要自己配置jboss, 只有一些简单代码。
Vsview8.0(输出报表打印预览打印等)
Vsview8.0(输出<em>报表</em>,<em>打印</em><em>预览</em>、 <em>打印</em>等)
VB 水晶报表
<em>生成</em><em>报表</em>,提供<em>打印</em>功能。<em>生成</em><em>报表</em>,提供<em>打印</em>功能<em>生成</em><em>报表</em>,提供<em>打印</em>功能。
Labview报表打印功能
Labview开发,<em>报表</em><em>生成</em>,<em>打印</em>等功能。
delphi修改并打印word
<em>delphi</em> 开发的修改并<em>打印</em>word内容,公供学习参考
JQUERY 实现条码生成和指定打印内容(预览效果)
JQUERY 实现条码<em>生成</em>和指定<em>打印</em>内容(<em>预览</em>效果)可以选择条码类型,输入数据直接范围条码 设置条码高度和条码的width,另外还有指定<em>打印</em>区域(div,可以指定任意区域 1个或者多个)和<em>打印</em><em>预览</em>功能
如何使用VB实现打印预览
Option Explicit Global Const mm = 567 Global Const cm = 567 Global Const NM_PP_Ofs = 0 '36 Global Const Gray = &HC0C0C0 Global Scala As Single Global Const ANTEPRIMA = 0 Global Const STAMPANTE = 1 Global Const NONESCLUSIVO = 0 Global Const ESCLUSIVO = 1 Global LocPerc As String Global Const LocName = "_$$_TEMP.TMP" Global Ofs As Single Global Const SistemaCoordinate = 0 Global NM_AnnullaStampa As Boolean Global TempDemoMode As Boolean Sub SistemaBarra(sP As Integer, eP As Integer, aP As Integer) ' PrnPRN.sBar > max bar ' PrnPRN.aBar > actual value ' ' sP = start page ' eP = end page ' aP = actual page Static Stp As Single Stp = PrnPrn.tBar.Width / ((eP - sP) + 1) PrnPrn.pBar.Width = Stp * aP End Sub Function TempFileExists(MyFilename As String) As Boolean Dim TempAttr As Double TempFileExists = True On Error GoTo MyErrorFileExist TempAttr = FileLen(MyFilename) GoTo MyExitFileExist MyErrorFileExist: TempFileExists = False Resume MyExitFileExist MyExitFileExist: On Error GoTo 0 End Function Sub ContaPagine() PrnPrv.MousePointer = vbHourglass Static NumPag As Integer NumPag = 0 Static A As String, B As String PrnPrv.ePag.Clear Open LocPerc + LocName For Append As #27: Close #27 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Open LocPerc + LocName For Input As #27 While Not EOF(27) Line Input #27, A If A = "#startpage" Then NumPag = NumPag + 1 ElseIf A = "#endpage" Then PrnPrv.ePag.AddItem Format(NumPag) End If Wend Close #27 If PrnPrv.ePag.ListCount > 0 Then PrnPrv.ePag.ListIndex = 0 Else PrnPrv.MousePointer = vbDefault MsgBox "No pages to print!", vbInformation, "Preview non available" Unload PrnPrv End If PrnPrv.MousePointer = vbDefault End Sub Sub SistemaStatusBar() PrnPrv.aPag.Caption = PrnPrv.ePag.Text PrnPrv.tPag.Caption = PrnPrv.ePag.ListCount PrnPrv.zPag.Caption = PrnPrv.zVal.Text + "%" End Sub Function StripComma(S As String) As Single Static l As Integer For l = 1 To Len(S) If Mid(S, l, 1) = "," Then Mid(S, l, 1) = "." End If Next StripComma = Val(S) End Function Sub TempDelete() Open LocPerc + LocName For Append As #25 Close #25 Kill LocPerc + LocName End Sub Sub TempInit() PrnPrv.TmpList.Pattern = "_$$_*.TMP" PrnPrv.TmpList.Path = Left(LocPerc, Len(LocPerc) - 1) PrnPrv.TmpList.Refresh If PrnPrv.TmpList.ListCount > 0 Then Kill LocPerc + "_$$_*.TMP" End If Randomize 1 Open LocPerc + LocName For Output As #25 Close #25 Unload PrnPrv End Sub Sub TempPrint(Dato As String) Open LocPerc + LocName For Append As #25 Print #25, Dato Close #25 End Sub Sub PrintHeader(Sin As String, Des As String, Dst As Integer) TempPrint "#startpage" PrintBox 2, 0.9, 18, 0.91, ANTEPRIMA PrintInLef 2, 0.55, Sin, "Arial", 8, False, ANTEPRIMA PrintInRig 18, 0.55, Des, "Arial", 8, False, ANTEPRIMA If TempDemoMode = True Then PrintCross 2, 0.9, 17.9, 26.01, ANTEPRIMA PrintCross 2.1, 0.9, 18, 26.01, ANTEPRIMA End If End Sub Sub PrintFooter(Sin As String, Des As String, Dst As Integer) PrintBox 2, 26, 18, 26.01, ANTEPRIMA PrintInLef 2, 26.1, Sin, "Arial", 8, False, ANTEPRIMA PrintInRig 18, 26.1, Des, "Arial", 8, False, ANTEPRIMA TempPrint "#endpage" ContaPagine End Sub Sub PrintRefGrid(Dst As Integer) Static X, Y As Integer TempPrint "#fontname" TempPrint "Arial" TempPrint "#fontsize" TempPrint Format(6 * Scala) For Y = 0 To 26 TempPrint "#y" TempPrint Format(Y * mm) For X = 0 To 19 TempPrint "#x" TempPrint Format(X * mm) TempPrint "#txt" TempPrint "+" & Format$(X, "#,##0") & "," & Format$(Y, "#,##0") Next Next End Sub Sub PrintJust(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Larg As Single, Dst As Integer) ReDim aT(500) As String Static NumPar As Integer Static aP As String Static OaP As String Static lP, l As Integer Static VecOfs As Single Static Interl As Single PrnPrv.Prv.FontName = Fname PrnPrv.Prv.FontSize = Fsize PrnPrv.Prv.FontBold = Fbold 'Interl = PrnPrv.Prv.TextHeight(Phrase) Interl = 0.4 If PrnPrv.Prv.TextWidth(Phrase) > Larg * mm Then NumPar = 0 For l = 1 To Len(Phrase) If Mid$(Phrase, l, 1) = " " Then NumPar = NumPar + 1 Else aT(NumPar) = aT(NumPar) + Mid$(Phrase, l, 1) End If Next aP = "" lP = 0 For l = 0 To NumPar OaP = aP If aP = "" Then aP = aT(l) Else aP = aP + " " + aT(l) End If If PrnPrv.Prv.TextWidth(aP) > Larg * mm Then aP = OaP PrintInLef X, Y + (Interl * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + Interl aP = aT(l) lP = lP + 1 End If Next PrintInLef X, Y + (Interl * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + Interl Else PrintInLef X, Y, Phrase, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + Interl End If End Sub Sub PrintJustS(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Larg As Single, Dst As Integer) ReDim aT(500) As String Static NumPar As Integer Static aP As String Static OaP As String Static lP, l As Integer Static VecOfs As Single Static lStp As Single lStp = 0.3 PrnPrv.Prv.FontName = Fname PrnPrv.Prv.FontSize = Fsize PrnPrv.Prv.FontBold = Fbold If PrnPrv.Prv.TextWidth(Phrase) > Larg * mm Then NumPar = 0 For l = 1 To Len(Phrase) If Mid$(Phrase, l, 1) = " " Then NumPar = NumPar + 1 Else aT(NumPar) = aT(NumPar) + Mid$(Phrase, l, 1) End If Next aP = "" lP = 0 For l = 0 To NumPar OaP = aP If aP = "" Then aP = aT(l) Else aP = aP + " " + aT(l) End If If PrnPrv.Prv.TextWidth(aP) > Larg * mm Then aP = OaP PrintInLef X, Y + (lStp * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + lStp aP = aT(l) lP = lP + 1 End If Next PrintInLef X, Y + (lStp * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + lStp Else PrintInLef X, Y, Phrase, Fname, Fsize, Fbold, ANTEPRIMA Ofs = Ofs + lStp End If End Sub Sub PrintInRig(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Dst As Integer) Static Tmp As String Static Lungh As Single Lungh = PrnPrv.Prv.TextWidth(Phrase) TempPrint "#fontname" TempPrint Fname TempPrint "#fontsize" TempPrint Format(Fsize) TempPrint "#fontbold" TempPrint Format(Fbold) TempPrint "#y" TempPrint Format(Y * mm) TempPrint "#x" TempPrint Format(X * mm) ' - Lungh TempPrint "#txt_r" TempPrint Phrase End Sub Sub PrintInLef(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Dst As Integer) TempPrint "#fontname" TempPrint Fname TempPrint "#fontsize" TempPrint Format(Fsize) TempPrint "#fontbold" TempPrint Format(Fbold) TempPrint "#y" TempPrint Format(Y * mm) TempPrint "#x" TempPrint Format(X * mm) TempPrint "#txt_l" TempPrint Phrase End Sub Sub PrintInCen(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Dst As Integer) Static dX As Single Static tmpX As Single ' ' X = coordinata orizzontale ' Y = coordinata del centro della riga ' Phrase = stringa da stampare ' dX = Int(PrnPrv.Prv.TextWidth(Phrase) / 2) tmpX = (X * mm) - (dX) If tmpX < 0 Then MsgBox "Error in coords!!!!", 16, "PrintInCen" Exit Sub End If TempPrint "#fontname" TempPrint Fname TempPrint "#fontsize" TempPrint Format(Fsize) TempPrint "#fontbold" TempPrint Format(Fbold) TempPrint "#y" TempPrint Format(Y * mm) TempPrint "#x" TempPrint Format(tmpX) '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TempPrint "#txt_c" TempPrint Phrase End Sub Sub PrintCross(X As Single, Y As Single, X1 As Single, Y1 As Single, Dst As Integer) TempPrint "#fill" TempPrint "1" TempPrint "#color" TempPrint "0" TempPrint "#line" TempPrint Format(X * mm) TempPrint Format(Y * mm) TempPrint Format(X1 * mm) TempPrint Format(Y1 * mm) TempPrint "" TempPrint "" TempPrint "#line" TempPrint Format(X1 * mm) TempPrint Format(Y * mm) TempPrint Format(X * mm) TempPrint Format(Y1 * mm) TempPrint "" TempPrint "" End Sub Sub PrintBoxFill(X As Single, Y As Single, X1 As Single, Y1 As Single, MyCol As Long, Dst As Integer) TempPrint "#fill" TempPrint "1" TempPrint "#color" TempPrint "0" TempPrint "#line" TempPrint Format(X * mm) TempPrint Format(Y * mm) TempPrint Format(X1 * mm) TempPrint Format(Y1 * mm) TempPrint Format(MyCol) TempPrint "BF" End Sub Sub PrintBoxFill2(X As Single, Y As Single, X1 As Single, Y1 As Single, MyCol As Long, MyFil As Long, Dst As Integer) TempPrint "#fill" TempPrint Format(MyFil) TempPrint "#color" TempPrint Format(MyCol) TempPrint "#line" TempPrint Format(X * mm) TempPrint Format(Y * mm) TempPrint Format(X1 * mm) TempPrint Format(Y1 * mm) TempPrint "" TempPrint "B" End Sub Sub PrintBox(X As Single, Y As Single, X1 As Single, Y1 As Single, Dst As Integer) TempPrint "#fill" TempPrint "1" TempPrint "#color" TempPrint "0" TempPrint "#line" TempPrint Format(X * mm) TempPrint Format(Y * mm) TempPrint Format(X1 * mm) TempPrint Format(Y1 * mm) TempPrint "" TempPrint "B" End Sub Sub PrintImg(Nome As Control, X As Single, Y As Single, X1 As Single, Y1 As Single, Dst As Integer) Static RR As Single, RT As String, NI As String TempPrint "#img" RR = (899999 * Rnd) + 100000 RT = Format(RR, "000000") NI = LocPerc + "_$$_" + RT + ".tmp" TempPrint NI SavePicture Nome, NI TempPrint Format(X * mm) TempPrint Format(Y * mm) TempPrint Format(X1 * mm) TempPrint Format(Y1 * mm) End Sub Sub SetA3() PrnPrv.Prv.Cls PrnPrv.Prv.Width = PrnPrv.Prv.Height * (29.7 / 42) PrnPrv.Prv.ScaleWidth = mm * 29.7 PrnPrv.Prv.ScaleHeight = mm * 42 Scala = PrnPrv.Prv.Height / PrnPrv.Prv.ScaleHeight End Sub Sub SetA4() PrnPrv.Prv.Cls PrnPrv.Prv.Width = PrnPrv.Prv.Height * (21 / 29.7) PrnPrv.Prv.ScaleWidth = mm * 21 PrnPrv.Prv.ScaleHeight = mm * 29.7 Scala = PrnPrv.Prv.Height / PrnPrv.Prv.ScaleHeight End Sub Sub SetB5() PrnPrv.Prv.Cls PrnPrv.Prv.Width = PrnPrv.Prv.Height * (15 / 21) PrnPrv.Prv.ScaleWidth = mm * 15 PrnPrv.Prv.ScaleHeight = mm * 21 Scala = PrnPrv.Prv.Height / PrnPrv.Prv.ScaleHeight End Sub Sub TempShow(X01 As Single, Y01 As Single, X02 As Single, Y02 As Single) PrnPrv.MousePointer = vbHourglass Static OldFill As Long, OldColo As Long Static l As Integer, Lung As Single, dX As Single, tmpX As Single Static pPnt As Integer, pRef As Integer pPnt = 0 pRef = Val(PrnPrv.ePag.Text) Static A As String, B As String Static X As Single, Y As Single Static X1 As Single, Y1 As Single Static BoxColor As Long, BoxType As String PrnPrv.Prv.Cls 'PrnPrv.Prv.Scale (X01, Y01)-(X02, Y02) PrnPrv.Prv.Left = (X01 * -1) + NM_PP_Ofs PrnPrv.Prv.Top = (Y01 * -1) + NM_PP_Ofs + PrnPrv.Cmd(0).Height Open LocPerc + LocName For Input As #26 While Not EOF(26) Line Input #26, A If A = "#line" Then Line Input #26, A X = StripComma(A) Line Input #26, A Y = StripComma(A) Line Input #26, A X1 = StripComma(A) Line Input #26, A Y1 = StripComma(A) Line Input #26, A B = A BoxColor = StripComma(A) Line Input #26, A BoxType = A If pPnt = pRef Then If B = "" And BoxType = "" Then PrnPrv.Prv.Line (X, Y)-(X1, Y1) ElseIf B <> "" Then PrnPrv.Prv.Line (X, Y)-(X1, Y1), BoxColor, BF Else PrnPrv.Prv.Line (X, Y)-(X1, Y1), , B End If End If ElseIf A = "#x" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.CurrentX = StripComma(A) End If ElseIf A = "#y" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.CurrentY = StripComma(A) End If ElseIf A = "#txt_c" Then Line Input #26, A If pPnt = pRef Then dX = Int(PrnPrv.Prv.TextWidth(A) / 2) tmpX = PrnPrv.Prv.CurrentX - dX PrnPrv.Prv.Print A End If ElseIf A = "#txt_l" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.Print A End If ElseIf A = "#txt_r" Then Line Input #26, A If pPnt = pRef Then Lung = PrnPrv.Prv.TextWidth(A) PrnPrv.Prv.CurrentX = PrnPrv.Prv.CurrentX - Lung PrnPrv.Prv.Print A End If ElseIf A = "#fontname" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.FontName = A End If ElseIf A = "#fontsize" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.FontSize = StripComma(A) * Scala End If ElseIf A = "#fontbold" Then Line Input #26, A If pPnt = pRef Then If A = "0" Then PrnPrv.Prv.FontBold = False Else PrnPrv.Prv.FontBold = True End If End If ElseIf A = "#fill" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.FillStyle = CLng(Val(A)) End If ElseIf A = "#color" Then Line Input #26, A If pPnt = pRef Then PrnPrv.Prv.FillColor = CLng(Val(A)) End If ElseIf A = "#img" Then Line Input #26, A If TempFileExists(A) = True Then PrnPrv.Img.Picture = LoadPicture(A) End If Line Input #26, A X = StripComma(A) Line Input #26, A Y = StripComma(A) Line Input #26, A X1 = StripComma(A) Line Input #26, A Y1 = StripComma(A) If pPnt = pRef Then PrnPrv.Prv.PaintPicture PrnPrv.Img.Picture, X, Y, X1, Y1 End If ElseIf A = "#startpage" Then pPnt = pPnt + 1 ElseIf A = "#endpage" Then If pPnt = pRef Then GoTo BastaLeggere End If End If Wend BastaLeggere: Close #26 If PrnPrv.Prv.Width > PrnPrv.hBar.Width Then PrnPrv.hBar.Min = 0 PrnPrv.hBar.Max = PrnPrv.Prv.Width - PrnPrv.hBar.Width PrnPrv.hBar.SmallChange = 20 'PrnPrv.hBar.LargeChange = PrnPrv.hBar.Max / 10 PrnPrv.hBar.LargeChange = (PrnPrv.hBar.Width * PrnPrv.hBar.Max) / PrnPrv.Prv.Width Else PrnPrv.hBar.Min = 0 PrnPrv.hBar.Max = 0 End If If PrnPrv.Prv.Height > PrnPrv.vBar.Height Then PrnPrv.vBar.Min = 0 PrnPrv.vBar.Max = PrnPrv.Prv.Height - PrnPrv.vBar.Height PrnPrv.vBar.SmallChange = 20 'PrnPrv.vBar.LargeChange = PrnPrv.vBar.Max / 10 PrnPrv.vBar.LargeChange = (PrnPrv.vBar.Height * PrnPrv.vBar.Max) / PrnPrv.Prv.Height Else PrnPrv.vBar.Min = 0 PrnPrv.vBar.Max = 0 End If SistemaStatusBar PrnPrv.MousePointer = vbDefault End Sub Sub TempStampa(sP As Integer, eP As Integer) PrnPrv.MousePointer = vbHourglass PrnPrn.Command2.Font.Bold = True DoEvents PrnPrn.pBar.Width = 0 Static DaStampare As Boolean DaStampare = False Static l As Integer, Lung As Single, dX As Single, tmpX As Single Static pPnt As Integer, pRef As Integer pPnt = 0 pRef = Val(PrnPrv.ePag.Text) Static A As String, B As String Static X As Single, Y As Single Static X1 As Single, Y1 As Single Static BoxColor As Long, BoxType As String Open LocPerc + LocName For Input As #26 While Not EOF(26) Line Input #26, A If A = "#line" Then Line Input #26, A X = StripComma(A) Line Input #26, A Y = StripComma(A) Line Input #26, A X1 = StripComma(A) Line Input #26, A Y1 = StripComma(A) Line Input #26, A B = A BoxColor = StripComma(A) Line Input #26, A BoxType = A If DaStampare = True Then If B = "" And BoxType = "" Then Printer.Line (X, Y)-(X1, Y1) ElseIf B <> "" Then Printer.Line (X, Y)-(X1, Y1), BoxColor, BF Else Printer.Line (X, Y)-(X1, Y1), , B End If End If ElseIf A = "#x" Then Line Input #26, A If DaStampare = True Then Printer.CurrentX = StripComma(A) End If ElseIf A = "#y" Then Line Input #26, A If DaStampare = True Then Printer.CurrentY = StripComma(A) End If ElseIf A = "#txt_c" Then Line Input #26, A If DaStampare = True Then dX = Int(Printer.TextWidth(A) / 2) tmpX = Printer.CurrentX - dX Printer.Print A End If ElseIf A = "#txt_l" Then Line Input #26, A If DaStampare = True Then Printer.Print A End If ElseIf A = "#txt_r" Then Line Input #26, A If DaStampare = True Then Lung = Printer.TextWidth(A) Printer.CurrentX = Printer.CurrentX - Lung Printer.Print A End If ElseIf A = "#fontname" Then Line Input #26, A If DaStampare = True Then Printer.FontName = A End If ElseIf A = "#fontsize" Then Line Input #26, A If DaStampare = True Then Printer.FontSize = StripComma(A) End If ElseIf A = "#fontbold" Then Line Input #26, A If DaStampare = True Then If A = "0" Then Printer.FontBold = False Else Printer.FontBold = True End If End If ElseIf A = "#fill" Then Line Input #26, A If pPnt = pRef Then Printer.FillStyle = CLng(Val(A)) End If ElseIf A = "#color" Then Line Input #26, A If pPnt = pRef Then Printer.FillColor = CLng(Val(A)) End If ElseIf A = "#img" Then Line Input #26, A If TempFileExists(A) = True Then PrnPrv.Img.Picture = LoadPicture(A) End If Line Input #26, A X = StripComma(A) Line Input #26, A Y = StripComma(A) Line Input #26, A X1 = StripComma(A) Line Input #26, A Y1 = StripComma(A) If DaStampare = True Then Printer.PaintPicture PrnPrv.Img.Picture, X, Y, X1, Y1 End If ElseIf A = "#startpage" Then If NM_AnnullaStampa = True Then GoTo BastaLeggere pPnt = pPnt + 1 If pPnt > eP Then GoTo BastaLeggere ElseIf pPnt >= sP And pPnt < sP Then DaStampare = False End If ElseIf A = "#endpage" Then If NM_AnnullaStampa = True Then GoTo BastaLeggere If pPnt >= eP Then GoTo BastaLeggere If DaStampare = True Then Printer.NewPage End If Wend BastaLeggere: Printer.EndDoc Close #26 PrnPrn.Command2.Font.Bold = False PrnPrv.MousePointer = vbDefault End Sub
delphi调用codesoft使用指定的打印打印
网络上很多Delphi+codesoft的例子,但是CodeSoft<em>打印</em>的时候却不是使用电脑的默认<em>打印</em>机,这个打<em>打印</em>时候,可以让用户选择<em>打印</em>机,适用于一台电脑连接多个<em>打印</em>机<em>打印</em>条码。
IFIX 填写excel例子
ifix用EXCEL做<em>报表</em>,把数据填到EXCEL,方便<em>生成</em>文档,<em>打印</em>,保护,<em>预览</em>
Delphi数据库配置超强万能打印组件含示例
zyprint.mdb为本地<em>打印</em>方案,你也可以保存在SQLSERVER里面。 zyprint.pas是调用文件 zyprintcrt.dll是<em>打印</em>控件 parameter目录是保存一些参数文件(ini)用的.现在暂时只有一个printcfg.ini文件. win2k+<em>delphi</em> 7 开发。
报表打印预览
运行之后的<em>报表</em><em>打印</em><em>预览</em>
pb打印设置预览
所有数据窗口数据<em>预览</em><em>打印</em>设置,同等比例放大,独立的pbl文件
VB中的ADO控件和DATAGrid数据打印报表
VB中的ADO控件和DATAGrid数据<em>打印</em><em>报表</em>,一个VB<em>打印</em>的例子,<em>报表</em><em>生成</em>的例子,数据取自Access数据库,使用Ado将数据从Access读出后绑定在DataGrid<em>报表</em>中,在利用<em>打印</em>组件输出到<em>打印</em>机,效果截图如上所示。
Qt表格分页打印
Qt表格分页<em>打印</em>
MFC对话框打印预览功能完美版
花了一个星期,研究了网上大量的MFC对话框<em>打印</em>及<em>打印</em><em>预览</em>功能的demo之后,选中了几个版本,合并修改,得到这个比较完美的版本(真心花了时间,功能上都实现了,也没有什么崩溃的问题)。其中几个<em>打印</em>具体内容的地方大家可以自己去实现以便应对不同的需要。我只是简单的<em>打印</em>了一些东西。我没有在<em>打印</em>内容上花心思,因为这样的东西加进来就不便于大家理解<em>打印</em>流程了,大家可以自己去封装一下(网上有个版本封装得很厉害,但我觉得看得太累了)。感谢大家支持。
fastreport 预览打印工具按钮的控制
FastReport<em>预览</em><em>打印</em>时,可以控制它工具栏上的按钮是否可以显示。如:导出,发邮件,<em>打印</em>按钮等等。
odoo10 打印预览功能
odoo<em>打印</em><em>预览</em>功能,直接安装这个模块就可以用了。然后点击<em>打印</em>的时候就会出现<em>预览</em>功能
Delphi 中预览Word文档示例
在<em>delphi</em>中读取word文档,并将文档分页显示。
ireport+jsp基于jasperReport 实现导出报表至web页面
内含需要的全部jar,注意.jrxml language 选Java 。可以实现简单<em>报表</em>的<em>生成</em>。如有不足,多多交流,谢谢。
Delphi打印报表
一个简单的Delphi<em>打印</em><em>报表</em>的小例子,可以控制<em>打印</em>每一页的行数,从而把DbGrid中的数据显示出来,进行<em>打印</em>.
报表设计器(Delphi7 +FastReport4,有原码)
自己做的<em>报表</em>设计器(有原码),功能比较简单。 使用Delphi7 + FastReport4控件,把<em>报表</em>设计及调用功能封装成一个Dll文件,主程序仅调用此Dll就可设计及<em>预览</em><em>报表</em>
条码打印的Delphi参考示例
条码<em>打印</em>的Delphi参考示例,可以根据输入的不同数值,<em>生成</em>条码,进行<em>预览</em>,<em>打印</em>
VB 报表 prndemo
vb <em>报表</em>例子VB第三方控件,<em>报表</em><em>打印</em><em>预览</em>
java 实现Excel报表打印输出 一看就会用 而且高效率,有注释
我整理的利用java代码导出数据库的数据 并保存到Excel表格当中 常用的 移植性高
delphI 打印二维码Fastreport
delphI Fastreport<em>打印</em>二维码,可支持<em>打印</em>PDF417,QRCODE,DATAmatrix!直接安装就可以使用了,非常方便
WPF打印预览
WPF<em>打印</em>Canvas控件内的内容及对Canvas保存为xps文件在进行<em>预览</em>的方法,程序简单适合初学者。
红虎兄的报表预览打印源码
红虎兄的<em>报表</em><em>预览</em>及<em>打印</em>源码........
ApplicationCrash
针对于vc的<em>报表</em>处理<em>打印</em><em>预览</em>功能模块
报表预览打印源码
红虎兄<em>报表</em><em>预览</em>及<em>打印</em>源码
fastreport asp.net 打印 预览
fastreport asp.net <em>报表</em>直接<em>打印</em> <em>预览</em>
MisGoldPrinterOpenSource
<em>报表</em><em>打印</em>控MisGoldPrinterOpenSource,支持自定义<em>报表</em>的<em>预览</em>和<em>打印</em>,能够进行页面设置
Grid++Report5.8
Grid++Report提供<em>报表</em><em>打印</em>、<em>打印</em><em>预览</em>、数据导出等功能,还提供独有的<em>报表</em>查询显示等功能
Grid++Report报表控件 V4.0.0.3
Grid++Report <em>报表</em>控件适用开发工具广泛:VB.NET、C#、VB、VC、Delphi、C++Builder等一切支持 COM 的开发工具。除了提供<em>报表</em>的<em>打印</em>、<em>打印</em><em>预览</em>、数据导出等常规功能,还提供独有的<em>报表</em>查询显示功能,达到<em>报表</em>查询显示、<em>打印</em>、<em>打印</em><em>预览</em>及数据导出的集成一体化实现。
PDF打印控件源码
自己写的一个控件,某人寿公司的需求,可惜最后没用到。 需求如下:给你一个一个PDF文档,让你<em>打印</em>该文档,且不同页从<em>打印</em>机的不同纸盒出纸(需求真是千奇百怪)。
Excel Report 打印
一款很好的<em>打印</em>控件,使用<em>delphi</em>开发,可以方便的使用EXCEL模板<em>生成</em><em>报表</em>
使用VS自带RDLC报表,根据用户输入内容生成条形码并在报表上显示
使用VS自带RDLC<em>报表</em>,根据用户输入内容<em>生成</em>条形码并在<em>报表</em>上显示
StringGrid报表打印
<em>delphi</em>中的StringGrid<em>报表</em><em>打印</em>
C# WinForm RDLC报表打印
C# WinForm RDLC<em>报表</em><em>打印</em>,不用自带<em>打印</em>方式,解决空白页和字体大小问题,博客中也有写RDLC客户端注意事项,
Winform报表打印万用组件解决方案
万用<em>报表</em><em>打印</em>系统系统适用Microsoft Visual Studio 2008开发的、基于Fromwork3.5类库的数据型应用程序使用,是软件开发人员不可多得的功能性组件,使用<em>报表</em><em>打印</em>系统可以大大的简化程序用于<em>报表</em><em>打印</em>的功能的复杂程序,减少出错率,提高程序的开发效率。 万用<em>报表</em><em>打印</em>系统基于DataSet的数据结构,保证了大多数应用程序对<em>打印</em>功能的需求,此系统包含许多人性化的设置,能够方便的自定义需要<em>打印</em>的<em>报表</em>的头文件、可以实现<em>报表</em>的套打、分页、纸张的设置(包含自定义纸张设置)、<em>打印</em><em>预览</em>等非常实用的功能。 主要功能模块如下: 1.Winfrom<em>报表</em>设计器:实现<em>报表</em>的动态设计,非常的简单易用,可以让用户自己直接设计即可。 2.<em>报表</em><em>预览</em>:实现设计好的<em>报表</em>的<em>预览</em>功能,同时根据<em>预览</em>情况,制定设计方案 3.纸张设计:<em>报表</em><em>打印</em>需要的纸张及页边距的设置 4.<em>报表</em>头文件设计 5.<em>打印</em>文件设置及数据绑定 6.套打设置 ……………… 详情见附件,附件中有使用Demo代码及完整的说明文档 注:此组件在国内多个大型项目中得到过应用,非常适合简单<em>报表</em><em>打印</em>,同时此组件,仅限于技术研究,禁止用于商业,如有需要,请联系作者。
FastReport报表打印显示二维码
FastReport<em>报表</em>没有提供二维码功能,在二维码流行的年代,这是一个很大的缺陷。最近做项目,需要FastReport显示二维码的功能,经过努力,终于实现了,分享出来,希望Delphi开发者有帮助。
SpringMVC+iReport多张报表连续输出案例
SpringMVC+iReport多张<em>报表</em>连续输出案例
.net打印预览报表示例(钻取表和子报表
.net<em>报表</em><em>打印</em><em>预览</em>的实例,主要是钻取表和子<em>报表</em>,涉及<em>报表</em>设计、参数传递等。
一个简单的delphi fastreport打印实例
一个简单的<em>delphi</em> fastreport<em>打印</em>实例
Vc++ 6.0对话框实现简单的单据套打预览打印功能
Vc++ 6.0对话框实现简单的单据套打<em>预览</em>及<em>打印</em>功能
安卓蓝牙打印 XE10
安卓蓝牙<em>打印</em> <em>delphi</em> XE10 附源代码 解决手机<em>打印</em>问题
SVG各式报表.rar
可以利用SVG做出各种样式<em>报表</em> 特甩 5分!!!
腕带打印程序
此程序使用水晶<em>报表</em>+VS2012 C#winform编写。基本可用,只需要替换数据库访问的内容和科室选项即可。VS2012水晶<em>报表</em>插件请查看我的其他资源共享,谢谢!
DELPHI BCB 程序中的报表输出到PDF控件
DELPHI BCB 程序中的<em>报表</em>输出到PDF控件 非常好用。 也可以在RM中使用。然后把{DEFINE llPDFLib}这个注释去掉。。
不需预览实现rdlc文件打印
不需<em>预览</em>实现rdlc文件<em>打印</em>
硕正报表套件,支持打印预览
基于WEB应用的<em>报表</em>套件,包括统计图,各种类型的<em>报表</em>,包排排序,列移动,列汇总,<em>报表</em><em>打印</em>及<em>预览</em>等
RDLC 支持web打印
vs2008下RDLC<em>报表</em>,支持web页面的直接<em>打印</em>
c#制作html报表实例
c#制作html<em>报表</em>实例,其中使用到了 VTemplate模板引擎,简单使用
vc报表打印
vc++实现的<em>报表</em><em>打印</em>程序源代码,可以适当修改加以利用,支持<em>打印</em>、<em>打印</em><em>预览</em>,
PB中借助Excel实现对复杂报表的输出与打印
PowerBuilder利用它的数据窗口(DataWindow)技术可以<em>生成</em>各种统计<em>报表</em>,但其制作复杂<em>报表</em>的功能还是不强, 难以满足中国式<em>报表</em>的要求。本文通过一个实例介绍了一种借助于Excel实现对这类<em>报表</em>的输出与<em>打印</em>的方法,并给出了部分源代码。
java、php、net等平台的免费打印控件,支持预览打印
支持java php net等多平台的免费<em>打印</em>控件 非破解版 没水印 并且支持<em>预览</em><em>打印</em> 方便实用 内有使用说明和例子 简单宜用
我开发的报表软件,欢迎使用
设定数据源和sql语句,自动<em>生成</em><em>报表</em>。 支持: <em>报表</em>字段的选择, <em>报表</em>的<em>预览</em><em>打印</em>, <em>报表</em>的Excel转换, <em>报表</em>的数据筛选。
ReportMachineV65
Delphi上的<em>报表</em><em>打印</em>工具.全部代码版。功能很强做<em>报表</em><em>打印</em>
ireport报表开发指南
ireport<em>报表</em>开发指南,提供<em>打印</em><em>预览</em>的功能,提高开发效率
明宇报表浏览器插件
明宇<em>报表</em>浏览器插件3.1.0.18、3.1.0.36、3.1.0.37 一般选用最新版的3.1.0.37即可,支持IE8~IE11
fastreport
FastReport.Net。更好的实现<em>报表</em>的格式,<em>打印</em>和<em>预览</em>、导出功能。
VB超级打印预览(源程序)
VB<em>报表</em><em>预览</em><em>打印</em>的源代码,对初学者挺有帮助。
report 直接打印
本地<em>报表</em>不<em>预览</em>直接<em>打印</em>的方法,内附详细说明。
Grid Report6.5
Grid++Report <em>报表</em>控件适用开发工具广泛:VB.NET、C#、VB、VC、Delphi、C++Builder等一切支持 COM 的开发工具。提供详尽帮助文档与多个编程平台下的丰富例子,除了提供<em>报表</em>的<em>打印</em>、<em>打印</em><em>预览</em>、数据导出等常规功能,还提供独有的<em>报表</em>查询显示功能,达到<em>报表</em>查询显示、<em>打印</em>、<em>打印</em><em>预览</em>及数据导出的集成一体化实现。轻松实现通用<em>报表</em>、表格<em>报表</em>、动态<em>报表</em>、多层表头、票据<em>打印</em>,发票套打、交叉表及各种特殊<em>报表</em>等。
利用IE预览打印报表示例[HTMLRepor.rar]-精品源代码
利用IE<em>预览</em><em>打印</em><em>报表</em>示例[HTMLRepor.rar]-精品源代码
VC++编程经典实例之- 打印报表技术
VC++编程经典实例之- <em>打印</em>与<em>报表</em>技术 :基础<em>打印</em>,<em>打印</em>图片,<em>打印</em>单据,控制<em>打印</em>,<em>打印</em><em>预览</em>等具体项目实例。
Delphi结合Excel打印报表实例代码..rar
Delphi结合<em>打印</em><em>报表</em>实例代码..rar`
VC++.NET报表编程——绘制股价表
以编制上证指数行情表为实例,讲解VC++.NET显示<em>报表</em>、<em>打印</em><em>报表</em>、<em>打印</em><em>预览</em>及页面设置的基本编程方法及实现过程。
动态生成的html页面转pdf并且打印预览
具体说明请看http://blog.csdn.net/a1968640005/article/details/74938790
Delphi 10 Seattle小票打印控件
TQ_Printrer控件让开发人员在开发跨平台项目相关<em>打印</em>控制时更加方便快捷。控件支持Android、iOS以及WIN32/64的开发,可控制兼容ESC/POS的小票<em>打印</em>机。目前控件已在多个Android、iOS项目中配合蓝牙小票<em>打印</em>机使用。已包含标准ESC/POS<em>打印</em>控制的基本指令在内(这些基本指令已能很好的满足多数项目使用)。
java 生成Excel,可根据模板格式生成 Excel打印专用 报表
java <em>生成</em>Excel,可根据模板格式<em>生成</em> Excel<em>打印</em>专用 <em>报表</em>
delphi生成二维码代码(支持D7-XE8)
<em>delphi</em>下<em>生成</em>二维码的代码,支持D7到XE8, 解决中文乱码问题
PDF在线生成浏览打印
B/S架构的程序,在线<em>打印</em>一直是个头痛的问题,通过在线<em>生成</em>PDF文件再进行<em>打印</em>不失为是个好的解决办法。废话少说,先看看演示:http://60.175.184.5/mypdf,觉得好再下吧。
acReport3.2.12自由表格式报表控件
一个很不错的<em>报表</em>控件,希望继续完善,使用中还是有些不足 比如使用cell函数取值时,如果公式在被取值单元格前,则第一页无法取到值 还有些会产生系统错误,系统自带<em>报表</em>样本中就有几个会出错 总体来说是自由度最高的<em>报表</em>,最易用的<em>报表</em>,没有之一,支持国产佳作! 原版本打包,版权属原作者
vfp报表教程汇编
自定义<em>预览</em><em>报表</em> <em>打印</em>文档控制三则 在VFP中调用Excel<em>打印</em><em>报表</em> 在VFP<em>报表</em>中应用RichText 用Word更好地输出VFP<em>报表</em>
《数据结构》的全部代码实现(C语言)下载
《数据结构》的全部代码实现(C语言),方便运行查看效果,辅助课本学习 相关下载链接:[url=//download.csdn.net/download/shinn613/4008737?utm_source=bbsseo]//download.csdn.net/download/shinn613/4008737?utm_source=bbsseo[/url]
Swift iOS应用开发实战 完整版下载
Swift iOS应用开发实战 完整版 微信订阅号:youyisiaApp 相关下载链接:[url=//download.csdn.net/download/sinat_31160859/9419270?utm_source=bbsseo]//download.csdn.net/download/sinat_31160859/9419270?utm_source=bbsseo[/url]
VC++扩展编程源代码下载
很好的书籍的源代码,测试,都可以用,无病毒,大家放心下载 相关下载链接:[url=//download.csdn.net/download/FlyDavid/2440494?utm_source=bbsseo]//download.csdn.net/download/FlyDavid/2440494?utm_source=bbsseo[/url]
文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习
相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 大数据学习路线报表生成 微信企业号报表开发教程
我们是很有底线的