Azz... non è così semplice, anche perchè manca una parte del codice (la sub TextOut). Supponendo che questa sub stampi semplicemente una riga alle coordinate che gli passi, devi inserire una delle funzioni da noi postate prima della riga "If Option1 = True Then". In questo modo dividi txtTitolo in 2 stringhe (Stringa1 e Stringa2) e anzichè scrivere...

codice:
   TextOut printer_hdc, 450, 2250, txtTitolo.Text, Len(txtTitolo.Text)
scrivi...

codice:
   TextOut printer_hdc, 450, 2250, txtTitolo.Text, Len(Stringa1)
   TextOut printer_hdc, 450, 2250 + Spazio, txtTitolo.Text, Len(Stringa2)
dove Spazio è una certa distanza tra la prima e la seconda riga. Questo era il caso della scritta orizzontale, quando stampi quella verticale aggiunge Spazio non al terzo, ma al secondo parametro di TextOut