已有23人关注
关于程序开发范例宝典的381实例问题!
发表在VB答疑区 2007-10-28
是否精华
版块置顶:
实例写的不是很明白。根本不换行打印,请问如何修改打印20个字后换行。
Private Sub Command1_Click()     

  Do While Len(Text1) > 10
    Str1 = Text1
  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          
    Text1 = Mid(Text1, Len(Str1) + 1)    
  Loop
End Sub
分享到:
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照