Drucken unter VB 6

[Pinki68]

Hallo,

ich würde gerne eine RichTextBox mitten auf ein Blatt ausdrucken!

Aber der Drucker fängt immer oben links an!
Nach rechts komme ich. ScaleY habe ich auch schon ausprobiert!

Hier der Code:

With rtbVerleih

'SelStart = 0
.elLength = Len(.Text)
.SelIndent = Printer.ScaleX(30, vbMillimeters, Printer.ScaleMode)

.SelRightIndent = Printer.ScaleX(15, vbMillimeters, Printer.ScaleMode)
.SelIndent = Printer.CurrentY(50, vbMillimeters, Printer.ScaleMode)

.Font.Name = "Arial"
.Font.Size = 10

.SelPrint Printer.hDC, False
.SelIndent = 0
.SelRightIndent = 0
End With

mit CurrentY zeige ich doch die vertikale Richtung an, oder?

 

[Shakie]

mit CurrentY zeige ich doch die vertikale Richtung an, oder?

Mit CurrentY kannst du den Abstand der aktuellen Druckposition vom oberen Rand, mit CurrentX den Abstand zum linken Rand einstellen.
Schau mal hier.