• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1106
  • Last Modified:

Visual FoxPro Crystal Reports Viewer Programmatically Printing the Selected View (page Tab) on the Crystal OLE Control

I am using the Crystal Reports 9 ActiveX Ole Control on a Visual FoxPro 9 form. I am able to run reports correctly. Because we wanted our users to be able to select different printers besides their Windows default printer, we have over-ridden the control's print routines and display a standard Windows printer dialog. All this has been working fine.

My question involves reports with the ability to drill into groups. If our users drill into a group and then print, only the results from the preview tab are printed. How can I specify to print from the active view (page tab the user is sitting on when they click print)?
  • 5
  • 3
1 Solution
How are you printing?
If you are printing through code you may have to capture the drill in parameters and pass them to the report.  Not sure you can do that.

There is a printer select control you can put on the report.  They should be able to et the printer then use the print icon to print the current page.

ContrAcctAuthor Commented:
There must be a way to specify the active view for printing. I know how to find the active view index, I just need to know where to pass that value.

My form has an Ole Crystal control, and the control has a property that stores the report object. I have a custom printing routine that subverts the objects standard print routine. My VFP 9 code for printing is as follows:

Local llReturnValue, lnSelect, lnOriginalOrientation 
lnSelect = Select()
llReturnValue = .T.
llPrintToFileEnabled = .F.
Store "" to lcPortName, lcPrinterName, lcPrintRange
Store 0 to lnCopies, lnCollate, lnFromPage, lnToPage, lnOrientation

lnOriginalOrientation = this.oReport.PaperOrientation

lnReturnValue = WindowsPrinterDialog(llPrintToFileEnabled, @lcPrinterName, @lcPortName, @lnCopies, @lnCollate, @lcPrintRange, @lnFromPage, @lnToPage, @lnOrientation)

With this.oReport
	If InList(lnReturnValue, 1, 2) && Print or apply

		.SelectPrinter("", lcPrinterName, lcPortName)
		.PaperOrientation = lnOriginalOrientation 

		If lnReturnValue = 1
			llCollate = lnCollate = 1
			Do Case
				Case lcPrintRange = "RANGE"
					.Printout(.F., lnCopies, llCollate, lnFromPage, lnToPage)
				Case lcPrintRange = "CURRENT"
					lnPageNo = this.GetCurrentPageNumber
					.Printout(.F., lnCopies, llCollate, lnPageNo, lnPageNo)
					.Printout(.F., lnCopies, llCollate)

Select (lnSelect)
Return llReturnValue

Open in new window

I don't know how to do it.

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

ContrAcctAuthor Commented:
Does anyone else have any ideas?
ContrAcctAuthor Commented:
What about using the Crystal Reports Print Control ActiveX object? Does any have an foxpro experience with printing using that control?
ContrAcctAuthor Commented:
Found a Crystal Reports Viewer 11.5 ActiveX Control that uses a better Windows printer dialog. It prints correctly. As a warning to others, though, it does not like to be placed on a modal form. Previous versions of the Viewer ActiveX Control could be jerry-rigged to work correctly. 11.5 could not.

Thanks anyway.
ContrAcctAuthor Commented:
The other answers were barely helpful and actually dismissive.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

  • 5
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now