首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • VB打印行间距问题
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-23 14:19:23 楼主
    我用VB的Printer对象打印
    Printer.Print "                                      订单/取消加订通知                    "
    Printer.Print "        ────────────────────────────────────────────────────────────────────────────"
    Printer.Print "            NO：                      日期：  " & Format(ServerDate, "YYYY-MM-DD")
    Printer.Print "        ────────────────────────────────────────────────────────────────────────────"


    就是这个格式,但我想调整行间距,就是横线挨者上面汉字紧一点,怎么调呀?
    10  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • _l_
    • 等级:
    发表于：2008-07-23 14:28:251楼 得分:0
    改变字体 把横线的字体变小点
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-23 14:51:592楼 得分:0
    用printer打印 ,CURRENTX和CURRENTY确定位置,如:
        nLeft = lcsleft
        nTop = lcstop
        Printer.Width = 13904    ''  13904
        Printer.Height = 3800    ''  3800
        Printer.Orientation = 1
        If MsgBox("请检查打印机是否接电与装纸,开始打印吗？", _
            vbYesNo + vbQuestion) = vbYes Then
            Printer.Font.Size = 14
    '        Printer.CurrentX = nLeft + 6250
    '        Printer.CurrentY = nTop
    '        Printer.Print ADOTemp![编号]
            Printer.CurrentX = nLeft - 300
            Printer.CurrentY = nTop + 1100
            Printer.Print ADOTemp![用户姓名]
            Printer.CurrentX = nLeft + 3300
            Printer.CurrentY = nTop + 1100
            Printer.Print ADOTemp![地区名称]
            Printer.CurrentX = nLeft - 300
            Printer.CurrentY = nTop + 1100 + 490 * 1
            Printer.Print ADOTemp![上网帐号]
            Printer.CurrentX = nLeft + 5700
            Printer.CurrentY = nTop + 1100 + 490 * 1
            Printer.Print ADOTemp![联系电话]
           
            lcsprinter1
           
            Printer.CurrentX = nLeft - 300
            Printer.CurrentY = nTop + 1100 + 490 * 3
            Printer.Print ADOTemp![地址]
            Printer.CurrentX = nLeft - 300
            Printer.CurrentY = nTop + 1000 + 490 * 4
            Printer.Print ADOTemp![宽带类型]
            Printer.CurrentX = nLeft - 300
            Printer.CurrentY = nTop + 1000 + 490 * 5
            Printer.Print ADOTemp![受理时间]
            Printer.CurrentX = nLeft + 4700
            Printer.CurrentY = nTop + 1000 + 490 * 5
            Printer.Print ADOTemp![受理工号]
    '        Printer.CurrentX = nLeft - 300
    '        Printer.CurrentY = nTop + 1100 + 490 * 6
    '        Printer.Print ADOTemp![机型]
    '        Printer.CurrentX = nLeft - 300
    '        Printer.CurrentY = nTop + 1100 + 490 * 7
    '        Printer.Print ADOTemp![显示器]
        End If
        Printer.EndDoc
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved