在报表查看器控件中以编程方式设置边距

发布于 2024-08-18 14:23:55 字数 529 浏览 6 评论 0原文

在我们的应用程序中，我们有一些需要非常特定边距的报告，这些边距取决于用户拥有的打印机。它用于打印到预先格式化的纸张上，并填充空白，并且根据打印机的不同，打印会出现一些边距偏差。更糟糕的是，我们实际上并不控制使用什么打印机，因为它不是内部应用程序。

我能想到的唯一解决方案是让用户以某种方式配置边距。我以为我可以动态地更改报告边距，就像我对数据源和实际报告所做的那样（我有一个控件用于显示应用程序中的每个报告，它工作正常），但我似乎找不到那个该死的属性这样做。报表查看器上有一个边距属性，但它用于表单显示，因此不会剪切它。

有谁知道怎么办。我想做的是在用户加载报告之前定义边距，即当他单击报告按钮时，我加载报告，设置边距（反之亦然是必要的）然后显示它。

在有人提到它之前，我知道用户可以在加载报表后更改页面设置以满足他的需要，但这有两个缺点。第一个是它不是每次都保存，我需要它是“可保存的”并且由用户保存。第二个问题是，当区域设置未设置为预期的值时，报表查看器似乎存在一些错误，并且我们无法强制用户更改其设置以适应某个应用程序。

编辑：忘了提及，这有什么用处。我的报道都是本地报道。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

臻嫒无言 2024-08-25 14:23:55

    'creates a new page setting
    Dim instance As New PageSettings()
    'create the new margin values (left,right,top,bottom)
    Dim value As New Margins(0, 0, 0, 0)
    'gives your new pagesetting a value
    instance.Margins = value

    'report viewer now sets your margins
    ReportViewer1.SetPageSettings(instance)

    'creates a new page setting
    Dim instance As New PageSettings()
    'create the new margin values (left,right,top,bottom)
    Dim value As New Margins(0, 0, 0, 0)
    'gives your new pagesetting a value
    instance.Margins = value

    'report viewer now sets your margins
    ReportViewer1.SetPageSettings(instance)

回复收藏 0 原文

酒与心事 2024-08-25 14:23:55

你不能直接这样做。尝试使用报表参数控制报表中的边距。

回复收藏 0 原文

不必在意 2024-08-25 14:23:55

嗯，我刚刚遇到了类似的问题；需要一份具有 0 英寸边距的报告，否则该死的东西会从 2 页变成 6 页，并且它垂直分割数据，因此页面没有任何意义。我必须在“打印设置”中手动设置才能打印，但是这份报告的最终目标是以 PDF 形式通过电子邮件发送给客户，你猜怎么着，当我手动设置页边距并导出时，它仍然分成 6 页并被炸毁，因此我冒着一切风险，尽了最后的努力来修复。这该死的东西 - 我用写字板打开了.rdlc，奇迹中的奇迹，发现了1in，等等。我将所有这些buggers设置为0in，保存，运行我的.net代码（2008），打开打印设置，然后哈利路亚，这是我的 0in 设置。现在进行最高测试 - 我将其导出为 PDF，转到文件，真是太棒了！有两个清晰干净的布局完美的页面，一切都很仁慈。我平静下来，让米迪克罗安流过我的身体，享受着一个罕见的时刻，这是一些人很少意识到的——一个简单的修复。

回复收藏 0 原文

蒲公英的约定 2024-08-25 14:23:55

查看ReportPageSettings 类，报表查看器控件的一部分。设置这些值看起来应该可以满足您的需要。

回复收藏 0 原文

乙白 2024-08-25 14:23:55

更多设置；

        Dim myPageSettings As New PageSettings()
        myPageSettings.Margins = New Margins(0, 0, 0 , 0)
        Dim paperSize As PaperSize = New PaperSize()
        'ToDo: update with the PaperKind 
        'that your printer uses
        paperSize.RawKind = PaperKind.A4
        ' paperSize.RawKind = System.Drawing.Printing.PaperKind.A4
        myPageSettings.PaperSize = paperSize
        'False for "Portrait"
        'True for "Landscape"
        myPageSettings.Landscape = False

        'report viewer now sets your margins
        ReportViewer1.SetPageSettings(myPageSettings)

More settings;

        Dim myPageSettings As New PageSettings()
        myPageSettings.Margins = New Margins(0, 0, 0 , 0)
        Dim paperSize As PaperSize = New PaperSize()
        'ToDo: update with the PaperKind 
        'that your printer uses
        paperSize.RawKind = PaperKind.A4
        ' paperSize.RawKind = System.Drawing.Printing.PaperKind.A4
        myPageSettings.PaperSize = paperSize
        'False for "Portrait"
        'True for "Landscape"
        myPageSettings.Landscape = False

        'report viewer now sets your margins
        ReportViewer1.SetPageSettings(myPageSettings)

回复收藏 0 原文

︶葆Ⅱㄣ 2024-08-25 14:23:55

这段代码适用于我，mm 中的数字

Dim newPageSettings As New System.Drawing.Printing.PageSettings
newPageSettings.Margins = New System.Drawing.Printing.Margins(50, 100, 45, 45)
ReportViewer1.SetPageSettings(newPageSettings)

使用 vb.net 2013

this code work with me, the numbers in mm

Dim newPageSettings As New System.Drawing.Printing.PageSettings
newPageSettings.Margins = New System.Drawing.Printing.Margins(50, 100, 45, 45)
ReportViewer1.SetPageSettings(newPageSettings)

im using vb.net 2013

回复收藏 0 原文

~没有更多了~