您的位置:程序门 -> vb ->



打印长字符换行的问题?


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


打印长字符换行的问题?
发表于:2007-10-17 12:29:47 楼主
printer.fontsize   =   12  
    printer.currentx   =   45  
    printer.currenty   =   87  
    do   while   len(text12)     >   11  
        str1   =   text12  
    do   while   len1     >   0   and   printer.textwidth(str1)     >   len1  
        str1   =   left(str1,   len(str1)   -   1)  
    loop  
    printer.print   str1    
    if   len(str1)   =   0   then   exit   do                            
        text12   =   mid(text12,   len(str1)   +   1)                
    loop  
  我需要在第11个字开始换行,但是根本就不换行,请问是怎么回事。


快速检索

最新资讯
热门点击