[VB6] Etichetta con testo orizzontale e verticale

[bobovieri]

Salve a tutti.

Ho fatto una ricerca nel forum ma non ho trovato la risposta al mio problema. In parole povere ho un semplice form che utilizzo per stampare dei titoli su etichette adesive. Il titolo che inserisco nella text mi deve essere stampato due volte nella stessa etichetta: una volta in modo orizzontale (già fatto!Tutto OK) e una volta in modo verticale. E qui sorge il problema. Questo è il codice che uso

Private Sub btnPrint_Click()
    
    'Stampa del titolo grande ruotato
    Printer.CurrentX = 300
    Printer.CurrentY = 5400
    Printer.FontSize = 20
    Printer.FontBold = True
    Printer.Orientation = vbPRORLandscape
    Printer.FontName = "Bookman Old Style"
    Printer.Print MO_Disk.txtTitle.Text
    
    'Stampa del Titolo
    Printer.CurrentX = 170
    Printer.CurrentY = 6150
    Printer.FontSize = 9
    Printer.FontBold = True
    Printer.FontName = "Bookman Old Style"
    Printer.Print MO_Disk.txtTitle.Text
       
    Printer.EndDoc
End Sub

ma mi stampa tutta l'etichetta in verticale, invece di una sola riga.

Come posso fare a fargli stampare solo una riga???

Grazie a tutti coloro che mi aiuteranno.

[mgmg]

Prova a guardare questo codice d'esempio se ti può essere di aiuto:

http://www.vb-helper.com/howto_print_rotated.html

Ciao

[bobovieri]

Grazie mille della dritta.

Ora lo provo e poi vi facci osapere (sia se OK che KO)

Grazie ancora

[bobovieri]

Scusa la lentezza con la quale ho fatto i test.

Comunque ce l'ho fatta. Funziona la stampa doppia. Ho finito stamattina.

Grazie mille ancora.