Visual Basic - ayudaa con el objeto print!!!

holaa!!

bueno ya tengo el codigo que me imprime una cotizacion y la imprime bien, pero a cada linea o texto que imprime pone un punto antes.
¿como puedo quitar ese puntoooooooo?
aqui esta el codigo:

Private Sub Command1_Click()
Dim Fecha, ST, iva, tot, mo, cletra, cliente, des, cant, pre, totg, valor As String
Dim x, y As Double
Dim i, num As Integer
Fecha = Format(Now, "dd"" de"" Mmmm"" de"" yyyy")

mo = Text5
cletra = Label10.Caption
ST = Text1
iva = Text2
totg = Text3.Text
cliente = Text4

Printer.Print ""

Printer.Font.Size = 10
Printer.Font.Name = "Arial"
Printer.ScaleMode = 7

'Logo
Printer.PSet (2.5, 2.5)
Printer.PaintPicture Picture1.Image, 2.5, 2.5, 7.5, 3
'datos cotizacion
Printer.PSet (13, 2.5)
Printer.Font.Size = 14
Printer.Font.Bold = True
Printer.Print "COTIZACIÓN"
Printer.Font.Size = 9
Printer.Font.Bold = False
Printer.PSet (12.6, 3.1)
Printer.Print "RAMÓN CORONA No. 397"
Printer.PSet (13, 3.5)
Printer.Print "COL. LOS JARDINES"
Printer.PSet (11.7, 3.9)
Printer.Print "TEL/FAX:210-7804, CEL. (662) 295-83-09"
Printer.PSet (12.1, 4.3)
Printer.Print "e-mail: [email protected]"
Printer.PSet (12.9, 4.7)
Printer.Print "RFC: SIEA 740827 9E6"
Printer.DrawWidth = 5
Printer.Line (2.5, 5.5)-(19, 5.5)
Printer.Line (2.5, 5.56)-(19, 5.56)
'FECHA
Printer.PSet (11.3, 5.7)
Printer.Print "Hermosillo Sonora a " & Fecha
'Nombre del cliente
Printer.Font.Bold = True
Printer.PSet (2.5, 7)
Printer.Print cliente
Printer.Font.Bold = False

Printer.PSet (2.5, 8.2)
Printer.Print "En respuesta a su solicitud, ponemos a su consideración la siguiente cotización"

'cotizacion desglozada
Printer.Font.Bold = True
Printer.PSet (2.75, 9.25)
Printer.Print "U"
Printer.PSet (7.36, 9.25)
Printer.Print "Descripción"
Printer.PSet (13.78, 9.25)
Printer.Print "Precio"
Printer.PSet (15.1, 9.25)
Printer.Print "Cant."
Printer.PSet (16.3, 9.25)
Printer.Print "Valor"
Printer.PSet (17.9, 9.25)
Printer.Print "Total"
Printer.Font.Bold = False
'conceptos
y = 9.25
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
y = y + 0.4
Printer.PSet (2.8, y)
num = DataGrid1.Columns(0)
Printer.Print num
Printer.PSet (3.3, y)
des = DataGrid1.Columns(1)
Printer.Print des
Printer.PSet (15.7, y)
cant = DataGrid1.Columns(2)
Printer.Print cant
Printer.PSet (13.75, y)
pre = DataGrid1.Columns(4)
Printer.Print pre
Printer.PSet (17.6, y)
tot = DataGrid1.Columns(5)
Printer.Print tot
Printer.PSet (16.35, y)
valor = DataGrid1.Columns(3)
Printer.Print valor
Adodc1.Recordset.MoveNext
Wend
'Mano de Obra
num = num + 1
y = y + 0.4
Printer.PSet (2.8, y)
Printer.Print num
Printer.PSet (3.3, y)
Printer.Print "Mano de Obra"
Printer.PSet (13.75, y)
Printer.Print mo
Printer.PSet (15.7, y)
Printer.Print "1"
Printer.PSet (17.6, y)
Printer.Print mo

'cuadricula
Printer.DrawWidth = 9
Printer.Line (2.5, 9)-(19.2, 17.5), , B
Printer.Line (2.5, 9.6)-(19.2, 9.6)
y = 9.6
Printer.DrawWidth = 5
For i = 1 To 19
y = y + 0.4
Printer.Line (2.5, y)-(19.2, y)
Next
Printer.Line (3.2, 9)-(3.2, 17.5)
Printer.Line (13.6, 9)-(13.6, 17.5)
Printer.Line (15, 9)-(15, 17.5)
Printer.Line (16.1, 9)-(16.1, 17.5)
Printer.Line (17.5, 9)-(17.5, 17.5)

Printer.Line (17.5, 17.5)-(19.2, 18.7), , B
y = 17.4
For i = 1 To 3
y = y + 0.4
If i = 1 Or i = 2 Then
Printer.Line (17.5, y + 0.1)-(19.2, y + 0.1)
End If
Select Case i
Case 1
Printer.PSet (17.5, y - 0.3)
Printer.Print Format(ST, "@@@@@@@@@@")
Printer.PSet (16, y - 0.3)
Printer.Print "SubTotal"
Case 2
Printer.PSet (17.5, y - 0.3)
Printer.Print Format(iva, "@@@@@@@@@@")
Printer.PSet (16.8, y - 0.3)
Printer.Print "IVA"
Case 3
Printer.PSet (17.5, y - 0.3)
Printer.Print Format(totg, "@@@@@@@@@")
Printer.PSet (16.6, y - 0.3)
Printer.Print "Total"
End Select
Next





Printer.Font.Bold = True
Printer.PSet (3.3, 18.9)
Printer.Print "NOTA:"
Printer.PSet (3.3, 19.3)
Printer.Print "TODA FACTURACIÓN CAUSARÁ EL 15% DE IVA."
Printer.PSet (3.3, 19.7)
Printer.Print "ESTA COTIZACIÓN PUEDE CAMBIAR EN INSTALACIONES EXTRA ORDINARIAS."
Printer.PSet (3.3, 20.1)
Printer.Print "12 MESES DE GARANTIA EN EL EQUIPO."
Printer.PSet (3.3, 20.5)
Printer.Print "60% DE ANTICIPO."

Printer.Font.Bold = False
Printer.Font.Size = 9
Printer.PSet (3.7, 21.3)
Printer.Print "Los precios están sujetos a cambio sin previo aviso, debido a que todos los productos se cotizan en dólares."
Printer.PSet (3.3, 21.7)
Printer.Print "Sin mas por el momento quedo de usted"

Printer.Font.Bold = True
Printer.PSet (7.5, 23)
Printer.Print "Atentamente"

Printer.Font.Bold = False
Printer.PSet (7.1, 24.3)
Printer.Print "Ing. Armando Silva"
Printer.DrawWidth = 5
Printer.Line (2.5, 25)-(19, 25)
Printer.Line (2.5, 25.05)-(19, 25.05)

Printer.PSet (15.1, 25.25)
Printer.Print "Hermosillo, Sonora, México"

Printer.EndDoc

End Sub

de antemano muchas gracias