| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3885 人关注过本帖
标题:vb.bet自带的水晶报表怎么调用?
只看楼主 加入收藏
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
结帖率:75%
收藏
 问题点数:0 回复次数:13 
vb.bet自带的水晶报表怎么调用?
vb.bet自带的水晶报表怎么调用?
直接打印到打印机是这样写的:
程序代码:
  Private Sub printgraphicGCxukezheng(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

        Dim x As Integer
        Dim y As Integer
        x = 990
        y = 110
        ev.Graphics.DrawString(TextBox22.Text, New Font("宋体", 13, FontStyle.Regular), Brushes.Black, 450, 274)
        ev.Graphics.DrawString(TextBox32.Text, New Font("宋体", 11, FontStyle.Regular), Brushes.Black, x, y)
        y = y + 46
        ev.Graphics.DrawString(TextBox31.Text, New Font("宋体", 11, FontStyle.Regular), Brushes.Black, x, y)
        y = y + 46
        ev.Graphics.DrawString(TextBox25.Text, New Font("宋体", 11, FontStyle.Regular), Brushes.Black, x, y)
        y = y + 46
        ev.Graphics.DrawString(TextBox24.Text, New Font("宋体", 11, FontStyle.Regular), Brushes.Black, x, y)
        ev.Graphics.DrawString(DateTimePicker2.Text, New Font("宋体", 13, FontStyle.Regular), Brushes.Black, 419, 753)


        Dim numchars As Integer
        Dim numlines As Integer
        Dim stringfopage As String
        Dim strformat As New StringFormat
        Dim rectdraw As New RectangleF(820, 325, 530, 245)
        Dim sizemeasure As New SizeF(543, 170 - printfont.GetHeight(ev.Graphics))
        strformat.Trimming = StringTrimming.Word
        ev.Graphics.MeasureString(stringtoprint, printfont, sizemeasure, strformat, numchars, numlines)
        stringfopage = stringtoprint.Substring(0, numchars)
        ev.Graphics.DrawString(stringfopage, printfont, Brushes.Black, rectdraw, strformat)

        ev.HasMorePages = False
    End Sub  Private Sub Button16_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Try

            PrintDocument1.DefaultPageSettings = printpagesettings
            stringtoprint = RichTextBox3.Text
            PrintDialog1.Document = PrintDocument1
            PageSetupDialog1.PageSettings = printpagesettings

            PrintDialog1.ShowDialog()
            PageSetupDialog1.ShowDialog()
            AddHandler PrintDocument1.PrintPage, AddressOf Me.printgraphicGCxukezheng

            PrintDocument1.Print()
        Catch ex As Exception
            MessageBox.Show("打印出现错误", ex.ToString())
        End Try
    End Sub

可不知道VB自带的水晶报表怎么去打印,请高人指点
问题二:怎么在代码里设置页面设置?如:纸张大小、打印方向?
搜索更多相关主题的帖子: 水晶 
2013-05-14 00:02
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
怎么没人回答呀
2013-05-15 20:43
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
这样设置纸张大小为什么出错?提示属性只读“kind为readonly”
PageSetupDialog1.PageSettings.PaperSize.Kind = PaperKind.A3
2013-05-15 22:07
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
怎么没人回答,晕
2013-05-23 19:01
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
水晶报表怎么打印啊????????
2013-05-24 23:39
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
我没用过水晶报表,体积太大的缘故。
既然是.net自带的,楼主何不看看帮助文档或MSDN?

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2013-05-26 11:35
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
前面说的不太明确,是中ReportViewer控件设计的报表怎么打印?
2013-05-26 19:50
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
ReportViewer不是有个打印机的图标么?
只需要在项目中象添加按钮控件一样,添加一个报表做它的数据源即可。
打印输出的结果看你在报表Report1.rdlc中设计的情况

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2013-05-27 12:22
smy727
Rank: 2
等 级:论坛游民
帖 子:95
专家分:20
注 册:2012-1-20
收藏
得分:0 
ReportViewer没有打印机的图标呀,我已经给ReportViewer报表添加数据源了,能不能说具体点?
2013-05-27 12:39
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2013-05-27 13:06
快速回复:vb.bet自带的水晶报表怎么调用?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016810 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved