Есть код!!!

Private Sub Form_Load()

Dim tS As String
Dim S As String
bf = FreeFile

Printer.Orientation = vbPRORLandscape

Open "LPT1" For Output As #2
Open "C:\ppp.txt" For Binary Access Read As #1
Do While Not EOF(1)

Line Input #bf, tS
S = tS + vbCrLf

S = Convert(S, 866, 1251)

Printer.Font.Size = 6.5
Printer.FontName = "Courier New"

Printer.Print S
Loop
Close #1
Close #2
Unload FormPet
End Sub

Подскажите, как сделать так чтобы при увеличение размера шрифта текст не выходил за размер листа...? т.е. уменьшалось межбуквенное расстояние...

А причем тут кодировка…? Вот если бы как-то задать границы листа и чтобы текст не перескакивал на следующую строчку…? Не знаю, как это сделать….