 printer.print
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 |