如何使用printdocument打印出如下效果

SLADFJKLSA 2011-08-19 12:35:50
很长很长很长很长的主标题
副标题

-------------------------------------------------------分割线-------------------------------------------------

标签一: 标签内容
标签二: 标签内容
-------------------------------------------------------分割线-------------------------------------------------
标签三: 内容
标签四: 标签内容


-------------------------------------------------------分割线-------------------------------------------------


页脚一串数字

请会的老师们给段例程代码,谢谢。不是懒,实在是刚学,你若只说原理我不一定看得懂。 谢谢,谢谢。
...全文
160 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
peng88580324 2012-06-23
  • 打赏
  • 举报
回复
学习了,谢谢
阿白hhh 2012-06-21
  • 打赏
  • 举报
回复
主要是谢谢2L。。
阿白hhh 2012-06-21
  • 打赏
  • 举报
回复
谢谢LZ。。。我的问题解决了,哈哈
SLADFJKLSA 2011-08-19
  • 打赏
  • 举报
回复
弄好了,再次感谢linjimu,你是不知道啊,搞的是那个小票打印机。终于不用郁闷死了。
打印的格式非常好,谢谢。
SLADFJKLSA 2011-08-19
  • 打赏
  • 举报
回复
谢谢 linjimu
我研究会儿,稍等哈
沐NeMo 2011-08-19
  • 打赏
  • 举报
回复
测试过,你要画在那个Graphics,你自己改。基本原理差不多。
Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Dim f As New Font("宋体", 12)
Dim x, y As Integer
x = 20
y = 20
Using g As Graphics = Graphics.FromImage(b)
g.DrawString("------------标题---------------", f, Brushes.Blue, x, y)
y += 25
g.DrawString("-------------------小标题------", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签1:-内容-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签2:-内容2-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签3:-内容3-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("------------分割线-------------", f, Brushes.Blue, x, y)
End Using
Me.BackgroundImage = b
End Sub

End Class

16,556

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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