VB下打印不出内容

Green Hander 2018-08-21 08:03:13
为打印单据，将预置的数据保存成ini文件，在主页面选择相关数据打印出表单，有几个内容打印不出来。
贴代码：
Private Sub p_initial()

    Dim StrPath$

    Dim i As Integer

    Dim m_item As String

    Dim m_code As String

    Dim m_result As String

    Dim m_symb As String

    Dim num As Integer

    Dim i_code As String

    Dim i_result As String

    Dim n As Integer

    

    StrPath = App.Path & "\configDB.ini"

    num = Val(ReadIni(StrPath, "Number", "project_num"))

    For n = 0 To 14

        For i = 0 To num - 1

        m_item = ReadIni(StrPath, "Item" & i, "project")

        m_code = ReadIni(StrPath, "Item" & i, "code")

        i_code = m_item & "(" & m_code & ")"

            If item(n).Text = i_code Then

                pname(n) = m_item

                Code(n) = m_code

            End If

        Next i

    Next n



    num = Val(ReadIni(StrPath, "Number", "result_num"))

    For n = 0 To 14

        For i = 0 To num - 1

        m_result = ReadIni(StrPath, "result" & i, "result")

        m_symb = ReadIni(StrPath, "result" & i, "symb")

        i_result = m_result & "/" & m_symb

            If result(n).Text = i_result Then

                symb(n) = m_symb

                res(n) = m_result

            End If

        Next i

    Next n



End Sub

Private Sub f_print()

    Call p_initial

    Printer.PaperSize = 9

    Printer.ScaleLeft = -20

    Printer.ScaleTop = -25

    Printer.ScaleWidth = 210

    Printer.ScaleHeight = 297

    Printer.CurrentX = 0

    Printer.CurrentY = 0

    Printer.ScaleMode = 6

    X = 67.733

    y = 4.233

    fnt = 14

    Printer.FontName = "黑体"

    txt = "同心县马高庄乡卫生院检验报告单"

    dy = prnt(X, y, fnt, txt)

    

    X = 8.467

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = "姓    名："

    dy = prnt(X, y, fnt, txt)

    X = 33.867

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = 姓名.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 66.675

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = "性  别："

    dy = prnt(X, y, fnt, txt)

    X = 88.9

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = 性别.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 131.498

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = "年  龄："

    dy = prnt(X, y, fnt, txt)

    X = 152.4

    y = 14.817

    fnt = 13

    Printer.FontName = "宋体"

    txt = 年龄.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 8.467

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = "病人类型："

    dy = prnt(X, y, fnt, txt)

    X = 33.867

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = 病人类型.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 66.675

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = "科  室："

    dy = prnt(X, y, fnt, txt)

    X = 88.9

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = 科室.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 131.498

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = "诊  断："

    dy = prnt(X, y, fnt, txt)

    X = 152.4

    y = 23.019

    fnt = 13

    Printer.FontName = "宋体"

    txt = diagnose.Text

    dy = prnt(X, y, fnt, txt)

    

    Printer.DrawWidth = 2

    Printer.Line (8.467, 31.75)-(200.907, 31.75)

    Printer.Line (8.467, 40.517)-(200.907, 40.517)

    Printer.Line (8.467, 118.533)-(200.907, 118.533)

    Printer.DrawWidth = 1

    Printer.Line (166.983, 125.889)-(200.907, 125.889)

    

    X = 12.7

    y = 33.867

    fnt = 13

    Printer.FontName = "黑体"

    Printer.FontBold = True

    txt = "序号"

    dy = prnt(X, y, fnt, txt)

    

    X = 42.333

    y = 33.867

    fnt = 13

    Printer.FontName = "黑体"

    Printer.FontBold = True

    txt = "项目名称"

    dy = prnt(X, y, fnt, txt)

    

    X = 85.461

    y = 33.867

    fnt = 13

    Printer.FontName = "黑体"

    Printer.FontBold = True

    txt = "项目代号"

    dy = prnt(X, y, fnt, txt)

    

    X = 131.233

    y = 33.867

    fnt = 13

    Printer.FontName = "黑体"

    Printer.FontBold = True

    txt = "结果"

    dy = prnt(X, y, fnt, txt)

    

    X = 168.804

    y = 33.867

    fnt = 13

    Printer.FontName = "黑体"

    Printer.FontBold = True

    txt = "标志"

    dy = prnt(X, y, fnt, txt)

    

    X = 10.583

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = "检验日期："

    dy = prnt(X, y, fnt, txt)

    X = 29.633

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = Format(Now, "yyyy-mm-dd hh:mm:ss")

    dy = prnt(X, y, fnt, txt)

    

    X = 70

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = "检验医生："

    dy = prnt(X, y, fnt, txt)

    X = 94

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = 送检医生.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 117

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = "检验员："

    dy = prnt(X, y, fnt, txt)

    X = 133.117

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = 检验员.Text

    dy = prnt(X, y, fnt, txt)

    

    X = 150.117

    y = 122.255

    fnt = 12

    Printer.FontName = "宋体"

    txt = "签字："

    dy = prnt(X, y, fnt, txt)

    

    Dim i As Integer

    Dim num As Integer

    num = 0

    For i = 0 To 14

        X = 16.122

        y = 41.54 + num

        fnt = 13

        Printer.FontName = "宋体"

        txt = Val(i + 1)

        dy = prnt(X, y, fnt, txt)

        

        X = 40.34

        y = 41.046 + num

        fnt = 13

        Printer.FontName = "宋体"

        txt = pname(i)

        dy = prnt(X, y, fnt, txt)

        

        X = 87.754

        y = 41.046 + num

        fnt = 13

        Printer.FontName = "宋体"

        txt = Code(i)

        dy = prnt(X, y, fnt, txt)

        

        X = 132.239

        y = 41.046 + num

        fnt = 13

        Printer.FontName = "宋体"

        txt = symb(i)

        dy = prnt(X, y, fnt, txt)

        

        X = 169.81

        y = 41.046 + num

        fnt = 13

        Printer.FontName = "宋体"

        txt = res(i)

        dy = prnt(X, y, fnt, txt)

        

        num = num + 4.233 + 0.794

        

        Next i

        

        Printer.EndDoc

End Sub



Private Sub Command1_Click()

    Call f_print

End Sub



pname、Code、symb、res打印不出来，鄙人初学，望各位大神赐教，不胜感激！
...全文
647 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccbbcc 2018-10-11
  • 打赏
  • 举报
 回复
prnt这个函数可能有问题
脆皮大雪糕 2018-08-23
  • 打赏
  • 举报
 回复
首先确认一下，pname、Code、symb、res 到底有没有值

确认一下这句：num = Val(ReadIni(StrPath, "Number", "project_num"))
如果num没取到值也会导致你的 For i = 0 To num - 1 变成空循环而导致没有赋值
Green Hander 2018-08-21
  • 打赏
  • 举报
 回复
引用 1 楼 Chen8013 的回复:
如果“pname、Code、symb、res打印不出来”，那岂不是相当于什么都没打出来了？


我看你的代码，　几乎都是执行调用 “dy = prnt(X, y, fnt, txt) ”进行打印操作的，
　自己看看这个“打印函数”有没有问题啊。

另外，可以多加个测试代码，检查一下那些“被打印内容”，是否都正确获取到内容了啊。


最奇怪的事，调试的时候如果我是输出成PDF文件，是没有什么问题的，但是用打印机打印的时候就会出问题。
舉杯邀明月 2018-08-21
  • 打赏
  • 举报
 回复
如果“pname、Code、symb、res打印不出来”，那岂不是相当于什么都没打出来了？


我看你的代码，　几乎都是执行调用 “dy = prnt(X, y, fnt, txt) ”进行打印操作的，
　自己看看这个“打印函数”有没有问题啊。

另外，可以多加个测试代码，检查一下那些“被打印内容”，是否都正确获取到内容了啊。
考虑 Stribeck 摩擦特性的无刷直流电机驱动 EMB 执行器耦合建模及仿真分析（Simulink仿真实现）
内容概要：本文针对无刷直流电机驱动的电子机械制动（EMB）执行器，建立了考虑Stribeck摩擦特性的非线性耦合动力学模型，并在Simulink环境中完成了系统级仿真分析。研究综合集成了电机动力学、齿轮传动机构与制动执行机构的动力学特性，构建了高保真的机电一体化系统模型。重点引入Stribeck摩擦模型以精确描述低速工况下执行器内部存在的静摩擦、粘滞摩擦与库仑摩擦之间的过渡行为，有效提升了系统在启停、反向运动等瞬态过程中的动态响应仿真精度。通过多工况仿真验证了模型的有效性，能够准确反映摩擦引起的爬行、滞后与定位误差等非线性现象，为EMB系统的高性能控制算法设计（如摩擦补偿、滑模控制）与结构优化提供了高可信度的仿真平台。; 适合人群：从事汽车电子制动系统、电机驱动控制、机电系统建模与仿真研究的研究生、科研人员及工程技术人员，需具备扎实的机械动力学、自动控制理论基础和MATLAB/Simulink仿真能力。; 使用场景及目标：①用于高精度电子机械制动系统的设计验证与性能预测；②为消除摩擦非线性影响的先进控制策略（如自适应控制、智能控制）提供精确的被控对象模型；③深入探究Stribeck摩擦等非线性因素对系统动态性能（如响应延迟、稳态误差）的作用机理； 阅读建议：读者应结合提供的Simulink模型文件，深入剖析Stribeck摩擦模块的数学实现与参数辨识方法，建议通过改变输入指令（如阶跃、正弦）和负载条件进行对比仿真，以直观理解非线性摩擦对系统动态特性的影响。
【Python编程】Python数据类dataclass与attrs库对比
内容概要：本文深入对比Python数据类声明的两种主流方案，重点分析dataclasses模块（PEP 557）与attrs第三方库在功能覆盖、性能开销、扩展生态上的差异。文章从样板代码（boilerplate）消除出发，详解@dataclass装饰器的frozen/unsafe_hash/order/slot参数语义、field()函数的默认值工厂与元数据配置、以及__post_init__的初始化后处理钩子。通过代码示例展示attrs的validators验证器、converters类型转换器、以及auto_attribs的PEP 526注解兼容模式，同时介绍cattrs的序列化/反序列化适配、Pydantic的BaseModel运行时校验增强、以及marshmallow的Schema显式定义，最后给出在配置对象、DTO传输、领域模型等场景下的数据类选型建议与版本兼容性策略。 直播下载：fengcaisy.com 直播下载：m.guan-long.cn 24直播网：m.dlboligang.com 24直播网：cpl520.com 24直播网：m.dlsyhm.com
易语言源码用超级列表框模仿Delphi表格
易语言源码用超级列表框模仿Delphi表格
易语言源码应用程序图标修改器源码
易语言源码应用程序图标修改器源码
易语言源码支持盛大英雄和商铺的传奇登陆器
易语言源码支持盛大英雄和商铺的传奇登陆器
数据库(包含打印，安装，报表)

1,217

社区成员

55,950

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章