VB6如何在word2003左侧装订线位置打印条形码?要在VB6中设置条形码控件BarcodeCtrl的类型和值,然后调出Word在装订线位置竖向打印条形码!解决后就给分!

解决方案 »

  1.   

    BarcodeCtrl是Office自带的控件,如何利用VB6在Word中生成条形码,我没研究明白,请各位前辈指导!
      

  2.   

    生成条形码:BarCodeCtrl1.Value = Text3.Text
      

  3.   

    VB6要生成条形码 一般是横式的打印在PctureBox上面 你要立式的话 可以旋转图片方式来解决所产生的图片再应用到excell或word
      

  4.   

    顶了~~
    以前都是在Report里用这个东西的~~
      

  5.   

    “调出Word在装订线位置竖向打印条形码”
    这个需要知道在Word里面怎么调用,然后用宏实现
    VB里赋值谁不会
      

  6.   

    “调出Word在装订线位置竖向打印条形码”
    这个需要知道在Word里面怎么调用,然后用宏实现
    VB里赋值谁不会你光会写这个,答案呢?
      

  7.   

    dbcontrols
     
    (泰山) 要多做,少说。 
      

  8.   

    这是vba中的一段,参考。Set myCB = ActiveDocument.Shapes.AddOLEControl(ClassType:="BARCODE.BarCodeCtrl.1")
     With myCB.OLEFormat.Object
         .Value = "S-102909211000001-12"
         .Style = 7
     End With
      

  9.   

    cxy5636917 许久未见啦这年头啊 聪明的人都是 多说少做, 像你我等 多做少说的人 都是天下第一号大傻蛋!!
      

  10.   

    泰山:你真是有辱我们山东泰山的名声啊。泰山,应是顶天立地也。真君子也。我和cbm66都没得罪你。并且我一向不和人斗嘴。可你也太没礼貌了。我不得不说两句。告诉你,cbm666在vb吧那绝对是老大。他的技术和水平,不是你我所能及的。慢慢学吧。别太不谦虚了。
      

  11.   

    瞧瞧,泰山什么时候是你们的了?
    你和和cbm66都没得罪我不错,可是我得罪你们了哦,耽误某些人在这里挣钱了!
    你们的帖子有礼貌么?
    “绝对是老大”是你捧得吧?就凭是一个撤职了的吧主?
    “他的水平不是你我能所及”,我的水平就是你他所能及?凭什么?就凭你一张嘴?
      

  12.   

    http://hiphotos.baidu.com/cxy5636917/pic/item/2c77d42bdb4727b1e6cd409e.jpg.jpg
      

  13.   

    感谢各位捧场!本题关键两点:1,如何利用VB6在Word打印Barcodectrl? 2,如何打印在Word的装订线位置? 条形码控件的赋值不是讨论重点!CBM666的办法是图片,如果用你的办法,请问如何添加到装订线位置?大家继续探讨! 
      

  14.   

    你可以先把结果放在剪切版里,在装订线的位置设置标签,然后用下列代码粘贴过去
        WDApp.ActiveDocument.Books("Barcodectrl").Select    WDApp.Selection.Paste
      

  15.   

    左侧边距框中的内容是在页眉中添加的,lz可以录制vba宏获得代码不过17楼的想法不错,我没试过,看似很简单应该可行。还是倾向于cmb666所说生成图片后,粘贴到左侧边距中。
      

  16.   

    各位前辈,我换个问法,希望有经验的不但能说还能写出具体代码(另开帖加分)  
    在Word左侧装订线位置添加图片,比较可行,办法是:在页眉页脚编辑状态下,在页眉添加图片,然后将图片拖动到页面左侧位置即可!但是在录制宏时,鼠标无法拖动图片,以至于我无法获取VBA代码!请各位亲自操作下,研究录制办法,谢谢!
      

  17.   

        NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection. _
            Range, RichText:=True
        Selection.InlineShapes.AddPicture FileName:= _
            "C:\Documents and Settings\Administrator\My Documents\My Pictures\001.jpg" _
            , LinkToFile:=False, SaveWithDocument:=True
      

  18.   


    不知道lz有没有认真看帖子,我都告诉你怎么做了,难道连动手试试的力气都没有,或者被打击得一点斗志都没了?或者根本就没有相信过我告诉你的方法?难道还真要到lz的电脑上演示一番才可以?
      

  19.   


    这个是直接在word中操作模板文件,可是在vb6中,又是如何引用这个模板对象?另外,图片是要输出到word页面左侧位置,由于是调用了页眉/页脚视图,所以还需要删除页眉的下划线。
      

  20.   


    在录制宏时,表格是无法用鼠标拖动的,但是可以使用键盘操作菜单,一步一步完成。
    现在要说的是,页眉的宏录制,无法用鼠标。希望大家亲自操作一下,不要光说不做,你不经过实践,怎么会明白困难呢?还在那里说我“动手试试的力气都没有”我相信csdn的朋友们,都是实干家,不是“理论家”。
      

  21.   

    引用WORD后是可以直接使用宏的