printer.print

[jesusjaime]

hola!!!

tengo una aplicacion en donde, para imprimir una factura, utilizo el objeto printer, ya la imprime bien, salvo que a cada nueva coordenada (printer.pset) empieza imprimiendo un punto, ¿como le hago para que no imprima ese punto?

aqui les pongo el codigo que utilizo:

Dim Fecha, cliente, direc, ciudad, rfc, tel, cant, des, pu, impo, mo, cletra, ST, iva, tot, interes As String
Dim x, y As Double

Fecha = Format(Now, "dd mm yyyy")
cliente = Text3(0).Text
direc = Text3(1).Text
ciudad = Text3(2).Text
rfc = Text3(3).Text
mo = Text8
cletra = Label16.Caption
ST = Text4
iva = Text5
tot = Text6.Text
tel = Text3(4)
interes = Text9

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

'Fecha
Printer.PSet (16.7, 4.1)
Printer.Print Fecha
'Datos del cliente
Printer.PSet (3.8, 5.3)
Printer.Print cliente
Printer.PSet (3.8, 5.9)
Printer.Print direc
Printer.PSet (3.8, 6.5)
Printer.Print ciudad
Printer.PSet (3.8, 7.2)
Printer.Print rfc
Printer.PSet (13.7, 7.2)
Printer.Print tel
'imprime DataGrid
y = 8.8
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
y = y + 0.5
Printer.PSet (2, y)
cant = DataGrid1.Columns(0)
Printer.Print cant
Printer.PSet (3.1, y)
des = DataGrid1.Columns(1)
Printer.Print des
Printer.PSet (15.5, y)
pu = DataGrid1.Columns(2)
Printer.Print pu
Printer.PSet (18.3, y)
impo = DataGrid1.Columns(3)
Printer.Print impo
Adodc1.Recordset.MoveNext
Wend
'Mano de obra
y = y + 0.5
Printer.PSet (2, y)
Printer.Print "1"
Printer.PSet (3.1, y)
Printer.Print "MANO DE OBRA"
Printer.PSet (15.5, y)
Printer.Print mo
Printer.PSet (18.3, y)
Printer.Print mo
'Cantida en Letras
Printer.PSet (4.5, 18.6)
Printer.Print "Son: (" & cletra & ")"

'Totales
Printer.CurrentY = 19.3
Printer.CurrentX = 18.4
Printer.Print Format(ST, "@@@@@@@@@@")
Printer.CurrentY = 20.1
Printer.CurrentX = 18.4
Printer.Print Format(iva, "@@@@@@@@@@")
Printer.CurrentY = 20.9
Printer.CurrentX = 18.4
Printer.Print Format(tot, "@@@@@@@@@")

'copia
Printer.PSet (4.5, 23.5)
Printer.Print tot & " " & cletra
Printer.PSet (4.5, 23.9)
Printer.Print Format(Now, " dd mmmm yyyy")
Printer.PSet (3, 24.4)
Printer.Print interes
Printer.PSet (3.8, 25.3)
Printer.Print cliente
Printer.PSet (3.8, 25.8)
Printer.Print direc
Printer.PSet (3.8, 26.3)
Printer.Print ciudad
Printer.EndDoc

de antemano muchas gracias

[ccca001]

bueno porque printer.pset imprime justamente un punto en las coordenadas que especificas... para dar las coordenadas, la forma correcta es usar printer.currentx= coordenada_x y printer.currenty=coordenada_y
...

[jesusjaime]

graciassssssssssss!!!!!!!