VB - печат А4 - Landscape

Здравейте.
С долупоместения код се опитвам да изведа докумен във формат А4 и Landscepe ориентация, но не мога да постигна положително решение.
Може ли подсказка за решеване на проблема ???

[pro]
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("txtNomDok").DataField = "NDOK"
.Controls("txtDatDok").DataField = "DatDok"
.Controls("txtImeDost").DataField = "ImeDost"
.Controls("txtDatZav").DataField = "DatZav"
.Controls("txtVS").DataField = "VSdelka"
.Controls("txtVidFak").DataField = "VDok"
.Controls("txtSB").DataField = "SasBezStoki"

.Controls("txtStoBezDDS").DataField = "StoBezDDS"
.Controls("txtDDS").DataField = "StoDDS"
.Controls("txtStoSasDDS").DataField = "StoOb"
.Controls("txtRegNom").DataField = "RegNomFak"
.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
[/pro]

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

Батенце, доколкото чактисвам repDnPok1 си го мислиш за 'Report Object' от MS Access, ти къде видя из методите на този обект .Show, че даже си го поръчал и модален. Казваш му аре .Show и той излиза на принтера, а! Ти го търкаляш като форма (Form), пък май го мислиш за рипорт, абе кашата е пълна, ама и Били с тия визарди съвсем ше ни оформи.

Мани майтапа, виж к'во е repDnPok1, отдето си го дефинирал. После разгледай Microsoft Access Objects и си готов.

Успех.

Във VB 6 в главното меню в за разработването на проекти има
Projects -->addDateReports
С този механизъм е проектиран repDnPok1, а контролите в Section1 са
"Unbound". Във връзка с това ситам .show като перфектна команда. още повече че VB не я отхвърля.
Наистина базата е MS Access, но reporta си е чист VB objects.
Разработката е за win XP prof
С поздрави и благодарности за взетото отношение !!!

Ох бе братче, ти и на некой обект от племето банту можеш да му плеснеш .ГовориБългарски без никакъв ефект и вероятно никой няма да възрази. Или казано просто: 'това, че можеш да напишеш безпрепятствено някоя глупост в редактора, въобще не означава, че нещата са ОК' А .Show не е команда, а метод, както и да е, за т'ва си има книги, бъди щастлив.

п.п. Това не е отношение, а помощ под формата на съвет, пробвай да почетеш книжки, има ги навсякъде.