title image


Smiley Drucken unter VB 6
Hallo,



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



Aber der Drucker fängt immer oben links an!



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.ScaleY(50, vbMillimeters, Printer.ScaleMode)



.Font.Name = "Arial"

.Font.Size = 10



.SelPrint Printer.hDC, False

.SelIndent = 0

.SelRightIndent = 0

End With



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

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: