Подскажите как в Visual Basic при выводе на печать сжать текст?

Буду презнателен!!!

Нет дело не в шрифте, уменьшить или увеличить я знаю как... Дело в том что при шрифте 8 текст вмещается на страницу, я хочу сделать шрифт 12 и чтобы текст вмещался на страницу также... ТО ЕСТЬ УЖИМАЛСЯ....

Magnus!!! Будь так добр вышли пример хоть небольшой на nikolson@ua.fm !!!

Буду признателен!!!

Есть пример:

Const ETO_OPAQUE = 2

Private Declare Function ExtTextOut Lib "gdi32" _
Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal wOptions As Long, _
ByVal lpRect As Any, ByVal lpString As String, _
ByVal nCount As Long, lpDx As Long) As Long

Private Sub Form_Paint()
Dim Arr(0 To 50) As Long
Const mStr = "Всем привет"
Me.ScaleMode = vbPixels
'Устанавливаем расстояние между символами
For x = 0 To 50
If x Mod 2 = 0 Then
Arr(x) = 7
Else
Arr(x) = 7
End If
Next x
'Вызываем ExtTextOut
ExtTextOut Me.hdc, 1, 1, ETO_OPAQUE, ByVal 0&, mStr, Len(mStr), Arr(0)
End Sub

На экране текст из файла ужимает но на печатает остается так как есть...