Word'a aktarmada sayfa düzeni değiştirme hk.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim oPara1 As Word.Paragraph

        'Start Word and open the document template.
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add

        'Insert a paragraph at the beginning of the document.
        oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.Text = RichTextBox1.Text
        oPara1.Range.Font.Bold = True
        oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.
        oPara1.Range.InsertParagraphAfter()
    End Sub

bu kod ile butona bastığımda richtextbox içini wordu açıp aktarıyor.
Benim tek yapamadığım mesela koda ekleme yaparak sayfa düzeniyle vs nasıl oynayabilirim

Sayfa yönlendirme Dikey
Sayfa Boyutu Japan LPhoto

 oDoc.PageSetup.PageHeight = oWord.CentimetersToPoints(8.9)
        oDoc.PageSetup.PageWidth = oWord.CentimetersToPoints(12.7)

şu şekilde çözdüm arkadaşlar