Commondialog's print dialog

[Forest Dragon]

Hello!!!

Some questions about the commondialog control's print dialog:

1. How can I let the user to choose the start page and the end page?

2. How can I let the user to choose if he/she wants to collate the pages in the case of multiple copies?

3. How can I use the print dialog to select a printer and then set the crystalreports control to print to this printer?

Thanks!!!

[MartinLiss]

Here is part of the answer:
Private Sub Command1_Click()

Dim BeginPage As Integer
Dim EndPage As Integer
Dim NumCopies As Integer
Dim Orientation As Integer
Dim Ndx As Integer
' Set Cancel to True.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Display the Print dialog box.
CommonDialog1.ShowPrinter
' Get user-selected values from the dialog box.
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For Ndx = 1 To NumCopies
' Put code here to send data to your printer.
Next
Exit Sub
ErrHandler:
' User pressed Cancel button.
Exit Sub
End Sub


------------------
Marty

[Forest Dragon]

Hello again!!!

Actually what I mean was, that when I call to the ShowPrinter method of the commondialog control, I get these options (StartPage, EndPage and Collate) hidden or disabled. I want to know how I can make them enabled and visible so the user can change their values.

I also want to know how I can get the printer's name and the driver's name from the commondialog control.

Thanks!!!

[lemarquis]

When you use the common dialog's showprinter method, any change to the currently selected printer automatically updates the Printer object within VB. To change the printer when printing a CR report, use the report's SelectPrinter method and assign the required Printer properties to the SelectPrinter arguments.

Here are the 3 lines of code you need:

cdMain.ShowPrinter
rptBlotter.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port
rptBlotter.PrintOut False

[Forest Dragon]

Thank you very much for your code!!!

But still, Does anyone know how to enable the start page, end page and collate options?

[QWERTY]

Play around with these constants:
cdlPDNoPageNums
cdlPDPageNums
cdlPDCollate
I'm not sure how they work (I know that you have to use them with CommonDialog.Flags Property). I'm not going to try it now because it is 5:15 in the morning and I have to get some sleep now. Hope I was helpful.
Regards QWERTY

------------------
Visual Basic Programmer
------------------
PolComSoft
You will hear a lot about it.

[Serge]

QWERTY is right. You would have to use these constants with Flags property:

Private Sub Command1_Click()
With CommonDialog1
.Flags = cdlPDNoPageNums Or cdlPDPageNums Or cdlPDCollate
.ShowPrinter
End With
End Sub


Check out VB's help or MSDN library for complete explanation of these constants.

------------------

Serge

Software Developer
Access8484@aol.com
ICQ#: 51055819 (http://www.icq.com/51055819)

[Jorgen]

Forrest Dragon

I have the same problem as you. I want to enable the option button for selecting the printing from page to page. Did you ever solve the problem?

Jorgen