В коде, показан ниже, делаю попьiтку получить справку в формате А4 Landsscape, но получаю ошибку "Report width is larger than paper width".

[/n]

Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape
repDnPok1.LeftMargin = 300
repDnPok1.RightMargin = 300
repDnPok1.TopMargin = 1500
repDnPok1.BottomMargin = 1500

Set repDnPok1.DataSource = rsDnPok

'With repStokiPoVR.Sections("Section4")
' .Controls("lblImeVR").Caption = Me.cmbImeVidRazh.Text
'End With
With repDnPok1.Sections("Section1")
.Controls("txtNPoRed").DataField = "NRed"
.........

.Controls("txtGodMes").DataField = "GodMes"
End With
With repDnPok1.Sections("Section5")
.Controls("lblObBezDDS").Caption = Format(dblObStoBez, "#####0.000")
.Controls("lblObDDS").Caption = Format(dblObDDS, "#####0.000")
.Controls("lblObSasDDS").Caption = Format(dblObStoSas, "#####0.000")
End With
Me.MousePointer = vbDefault

Load repDnPok1

DoEvents

repDnPok1.Show vbModal 'това е печата

DoEvents

[/n]

Печатная форма (repDnPok1) разработана в среде проектирование VB6: Project --> Add Data Repoprts, на которою разместил все контроли (unbound).

Ширине форму 23 (по показание макет документа)

Проек работает в среде WinXP prof. Принтер HP 1100

Можно кто помочь мне разобратся.