using PageSetupDialog

  • Thread starter Thread starter Just Me
  • Start date Start date
J

Just Me

Dim PageSetupDialog As New PageSetupDialog

With PageSetupDialog

..Document = mPD

....snip



I call the dialog as show above.

Click on "Printer..."

Click "Properties..."

Click "Letter size" and select Custom

Then set the paper size to 8.5x12, give a name and Save

Then check mPD.DefaultPageSettings.PaperSize.Width and Height

It does not reflect the change.

Would you expect it to and if so do you have a suggestion as to what might
be wrong?





Thanks
 
Dim PageSetupDialog As New PageSetupDialog
With PageSetupDialog
.Document = mPD
...snip

I call the dialog as show above.
Click on "Printer..."
Click "Properties..."
Click "Letter size" and select Custom
Then set the paper size to 8.5x12, give a name and Save
Then check mPD.DefaultPageSettings.PaperSize.Width and Height
It does not reflect the change.
Would you expect it to and if so do you have a suggestion as to what might
be wrong?
Click to expand...

I wonder should I use(this does not fix the problem):

Dim PageSetupDialog As New PageSetupDialog
With PageSetupDialog
..Document = mPD
..PrinterSettings = mPD.DefaultPageSettings.PrinterSettings
..PageSettings = mPD.DefaultPageSettings
...snip
Click to expand...
If .ShowDialog() <> DialogResult.OK Then Exit Sub
End With
Forgot to innclude the ending in the first post
 
Just Me,

Today real confusing questions.

I may assume that PageSetupDialog is a windows.forms.form?

And please do not use "With" in your questions, it makes reading messages
very confusing, use just short names in your sample by instance when the
sentence above is true, frm1.

However I think that when above is true it can be.

\\\
dim frm1 as new form1
frm1.Document = mPD
If frm1.showDialog() <> DialogResult.OK then
mPD = frm.Document
etc
Else
'do what has to be done when it is not OK
End if
frm1.dispose
///

I hope this helps?

Cor



Cor
 
Thanks, guess I didn't do a good job of describing the problem.
Below is the entire button event handler.
Because of your reply I just added the statement:
mPD = .Document
but I still do not see the effect of chosing a custom size.
Excuse the use of "With" but I did not want to change anything.

Is the mPD = .Document needed?
Should the 2 commented statements be uncommented or removed?


Private Sub btnMore_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnMore.Click
Dim PageSetupDialog As New PageSetupDialog
With PageSetupDialog
..Document = mPD
'.PrinterSettings = mPD.DefaultPageSettings.PrinterSettings
'.PageSettings = mPD.DefaultPageSettings
..ShowHelp = False
..AllowPaper = True
..AllowMargins = True
..AllowOrientation = True
..AllowPrinter = True
..PageSettings.Margins.Top = 100 * Gdi.CSingle(txtTopMargin.Text)
..PageSettings.Margins.Left = 100 * Gdi.CSingle(txtLeftMargin.Text)
..PageSettings.Margins.Right = 100 * Gdi.CSingle(txtRightMargin.Text)
..PageSettings.Margins.Bottom = 100 * Gdi.CSingle(txtBottomMargin.Text)
If .ShowDialog() <> DialogResult.OK Then Exit Sub
mPD = .Document
End With
LoadTextBoxes()
RaiseEvent PageSetupChanged(Me, Nothing)
End Sub


I call the dialog as show above.
Click on "Printer..."
Click "Properties..."
Click "Letter size" and select Custom
Then set the paper size to 8.5x12, give a name and Save
Then check mPD.DefaultPageSettings.PaperSize.Width and Height
They does not reflect the change (i.e., they are not 8.5 and 12).
Would you expect them to be 8.5 and 12?
If so do you have a suggestion as to what might be wrong?



From the doc for PageSetupDialog Class [Visual Basic]
Remarks
The PageSetupDialog dialog box modifies the PageSettings and PrinterSettings
information for a given Document. The user can enable sections of the dialog
box to manipulate printing, margins, and paper orientation, size, and source
and to show help and network buttons. MinMargins defines the minimum margins
a user can select.


THANKS
 
Just Me,

I was thinking inanother direction however is this not a nicer sample to
show what you want?
\\
Public Class main
Public Shared Sub main()
Dim pd As New Printing.PrintDocument
Dim pgs As New PageSetupDialog
pgs.Document = New Printing.PrintDocument
pgs.ShowDialog()
pd = pgs.Document
MessageBox.Show(pd.DefaultPageSettings.PaperSize.ToString)
End Sub
End Class
///

For me this works as I suspect

I hope this helps something

Cor
Cor
 
I wasnt sure what the easiest way to run your code is.
I made a new solution/project and inserted the guts of your code after
InitializeComponent()

Seemed to work OK at first.
Then I tried selecting "Custom" and picked new sizes.
Your code works like mine. That is, the picked sizes are not returned in
pd.DefaultPageSettings.PaperSize

Did you try that?

Thanks
 
FYI
PaperHeight = GDI.GetDeviceCaps(hdc, GDI.PHYSICALHEIGHT)
returns the correct custom sizes.
Guess the problem is the printer driver and PageSetupDialog do not correctly
up grade the custom size
 
Back
Top