Printing from Print Preview on HP DeskJet Problems

[Siv]

Hi,
I am working on a VB.NET application that uses the Print Preview. When I
call up the print preview and print from my laser printer the whole page
comes out no problem. When I do the same using my DeskJet 940c it only
prints the top left quarter of the document.

Has anyone seen this and know what I am missing, is there some command you
send to the printer to say, do the whole page not just the top left
quarter??
It's got me stumped.

In the code I just do the following:

Dim prDialog As New PrintDialog, prvDialog As New PrintPreviewDia log,
margins As New System.Drawing. Printing.Margin s

Dim PgSettings As New PageSetupDialog

MyDoc.DocumentN ame = "Quotation"

MyDoc.OriginAtM argins = False

MyDoc.DefaultPa geSettings.Land scape = False

prDialog.Docume nt = MyDoc

prDialog.AllowS omePages = True

If IsNothing(PgSet tings.PageSetti ngs) Then

'User doesn't look to have changed the settings so set defaults

MyDoc.DefaultPa geSettings.Marg ins.Bottom = 55 'allow for inkjets (100ths
of inch)

MyDoc.DefaultPa geSettings.Marg ins.Left = 50

MyDoc.DefaultPa geSettings.Marg ins.Right = 50

MyDoc.DefaultPa geSettings.Marg ins.Top = 50

Else

prDialog.Printe rSettings = PgSettings.Prin terSettings

End If

prDialog.ShowDi alog()

prDialog.Printe rSettings.Defau ltPageSettings. Landscape = False 'Don't allow
user to set landscape

AddHandler MyDoc.PrintPage , AddressOf Me.PagePrintFun ction

If PrintPreview Then

prvDialog.Docum ent = MyDoc

prvDialog.Windo wState = FormWindowState .Maximized

prvDialog.ShowD ialog()

Else

MyDoc.Print()

End If

'Tidy Up

MyDoc.Dispose()

prDialog.Dispos e()

prvDialog.Dispo se()
--
Siv
Martley, Near Worcester, UK.