Printing a single page from multiple pages using Crystal Reports Viewer

[KT-bt31]

Please tell us how to print only one specified page from a multi-page document
using Crystal Report Viewer in a Windows 11.
Printing is done by selecting the [Print] button in Crystal Report Viewer.
To print, use the Windows print dialog to specify the pages.
We want to print the page we want to print without previewing it in Crystal Report Viewer,
but even if we specify a page, the previewed page gets printed.
We can print multiple pages as specified, but we cannot print just one page.

Our development environment is as follows.

Windows 11 Pro(23H2)
Microsoft Visual Studio 2022(64bit)Version 17.13.0
Microsoft .NET Framework 4.8
SAP Crystal Reports 2020 SP4 Patch100(64bit)
SAP Crystal Reports, version for Microsoft Visual Studio(SP37)(64bit)
SAP Crystal Reports for Visual Studio(SP37) CR_runtime(64bit)
SAP Crystal Reports for Visual Studio(SP37) Merge Modules(64bit)

In addition, in a Windows 10, we could print just one page.

[KT-bt31]

Hi, DonWilliams. Thank you for your reply. We are developing in VB.NET. Does VB.NET open the same Windows print dialog as your test Print app does? In our environment, the new Windows print dialog introduced in Windows 11 22H2 opens. Thank you in advance.

[KT-bt31]

Hi, DonWilliams. Thank you for your reply. We will send an image of the Windows Print dialog opened from our app. It opens when we click the Print button of the CR Viewer embedded in a VB.NET Form. Thank you in advance.

[KT-bt31]

Hi, DonWilliams. Sorry, it seems the image failed to send. Thank you in advance.

[KT-bt31]

Hi, DonWilliams.

We will send the image again. Will you be able to see the image now?
We are using a Japanese OS, so the Windows print dialog is also in Japanese.

Thank you in advance.

[DonWilliams]

I do see it now. Odd, I can't find any reference to that dialog box. Is this a WEB or desktop app? Would it be possible to create a simple test app so I can test your work flow? If you can send me a direct message and attach the test app?

[KT-bt31]

Hello DonWilliams, Our environment is a desktop app.

Creating the layout of the invoice.

Visual Studio reference settings.

This is the SAP standard frmPreview.

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPreview
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows フォーム デザイナーで必要です。
Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
'Windows フォーム デザイナーを使用して変更できます。
'コード エディターを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer()
Me.SuspendLayout()
'
'CrystalReportViewer1
'
Me.CrystalReportViewer1.ActiveViewIndex = -1
Me.CrystalReportViewer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.CrystalReportViewer1.Cursor = System.Windows.Forms.Cursors.Default
Me.CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
Me.CrystalReportViewer1.Size = New System.Drawing.Size(684, 702)
Me.CrystalReportViewer1.TabIndex = 0
Me.CrystalReportViewer1.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.None
'
'frmPreview
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(684, 702)
Me.Controls.Add(Me.CrystalReportViewer1)
Me.Name = "frmPreview"
Me.ResumeLayout(False)
End Sub
Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer
End Class

This is the report preview output instruction screen.

Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
Imports System.Management
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Inherits System.Windows.Forms.Form
Public giFormName As String
Private Sub CmdBACK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdBACK.Click
Me.Dispose()
RPT0000.Show()
RPT0000.Activate()
End Sub
Private Sub CmdOUT_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOUT.Click
Dim bolReturn As Boolean
Dim intRtn As Short
Dim intMsgRtn As Short
Dim ms As New ManagementObjectSearcher("Select * from Win32_Printer")
Dim strRptPath As String
Dim strRptName As String
Dim strBegin As String
Dim strEnd As String
Dim cystlRpt As New ReportDocument()
On Error GoTo Err_section
intRtn = 0
intMsgRtn = 0
strRptPath = Mid$(My.Application.Info.DirectoryPath, 1, InStrRev(My.Application.Info.DirectoryPath, "\")) & "Reports\"
strRptName = "RPT0000.RPT"
For Each objPrinter As ManagementObject In ms.Get()
If DirectCast(objPrinter("Default"), Boolean) = True Then
Debug.WriteLine(objPrinter("Name").ToString())
cystlRpt.PrintOptions.PrinterName = objPrinter("Name").ToString()
Exit For
End If
Next objPrinter
cystlRpt.Load(strRptPath & strRptName)
Dim i As Integer = 0
For Each Table As CrystalDecisions.CrystalReports.Engine.Table In cystlRpt.Database.Tables
Dim logOnInfo = Table.LogOnInfo
logOnInfo.ConnectionInfo.DatabaseName = gDBName
logOnInfo.ConnectionInfo.ServerName = gDBName
logOnInfo.ConnectionInfo.UserID = gDBLogin
logOnInfo.ConnectionInfo.Password = gDBPassword
cystlRpt.Database.Tables.Item(i).ApplyLogOnInfo(logOnInfo)
cystlRpt.Database.Tables.Item(i).Location = gDBName & ".dbo." & Table.Name
i = i + 1
Next
frmPreview.CrystalReportViewer1.ReportSource = cystlRpt
frmPreview.CrystalReportViewer1.RefreshReport()
frmPreview.Show()
End If
Exit Sub
Err_section:
End Class

[DonWilliams · Accepted solution]

Hello,

OK now I see the new Windows 11 print dialog box, not sure why when I googled it the first time nothing was found...

I suggest moving back to the legacy Dialog boxes, I doubt R&D has done anything to use the new one. Therefore there is no way to set the values in code and you are limited to what the New Printer UI allows, it could be a bug in Microsoft's UI, you'll have to ask MS how to set values....

To set it back to the original see this https://www.winhelponline.com/blog/restore-legacy-print-dialog-windows-11/

FYI - Using the CR Basic to print reports doesn't work that well to make changes to the printer saved in the RPT File. I suggest you have a look at my printer test app to use the PrintOutputController() to set printer info, it does require using RAS to open the report object. My sample shows you how to do this.

I will ping R&D and see what they say about it and if there are any plans to integrate it into CR's Printer dialog boxes.

Sorry about not seeing this sooner...

[DonWilliams · Accepted solution]

More info from SAP R&D:

In the Project you can change the default print button to use PrintToPrinter or PrintOutputController:

Info from R&D:

In Page Range, if you specified the single page number, then it will always printed out the current viewing page in the viewer. But if you specified the page range, it could successfully print out the correct pages.

The PrintOutputController print dialog works well on Win11 24H2 since it’s used our CR print dialog, and also CRW works well.

As workaround, user could change to use PrintOutputController printmode in winform viewer, there’s registry:

•          32 bit runtime: [HKEY_LOCAL_MACHINE\SOFTWARE\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Crystal Reports for .NET] 
•          64 bit runtime: [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Crystal Reports for .NET] 

Add "PrintMode" as String value:

•          If the value is set to "PrintToPrinter", the WinForm will use PrintToPrinter to print the report. 
•          If the value is set to "PrintOutputController", the WinForm will use PrintOutputController to print the report. 
•          If other value is set, this key will not take effect.
•          Both "PrintToPrinter" and "PrintOutputController" are case insensitive.
•          This key will override the “PrintMode” set in Crystal Reports Viewer property page.

Or User could add below registry key value to switch to the legacy print dialog for All app:

[HKEY_CURRENT_USER\Software\Microsoft\Print\UnifiedPrintDialog]

"PreferLegacyPrintDialog"=dword:00000001

There's already lots of discussions regarding new print dialog in Win11 on internet and you could see there are many issues with it.

R&D will continue to look into a possible fix or wait to see if Microsoft "fixes" anything.

So for now all SAP can suggest is to not use the new Windows Dialog box and move back to the legacy dialog boxes.

Thanks again

Don

[KT-bt31 · Accepted solution]

Hi, DonWilliams.

Sorry for the late reply.
And your explanation helped me understand the situation.
We will try your advice.

Thank you, DonWilliams.