Cita:
Iniciado por intcmexico236445 
yo tengo algo como eso, solo que no uso access, sino MySQL o SQL Server. Y lo resolvi de la siguiente manera:
Primero agregue todos los articulos que voy a vender a un listview, ya agregados lo unico que hice es al mandar imprimir el ticket recorro con un for todo el listview, y agrego solo las columnas que quiero, y despues las sumo, mira asi:
Código:
For Each sitem In lvListaRecargas.Items
a.AnadirElemento(sitem.subitems.item(0).text, sitem.subitems.item(3).text, Format(sitem.subitems.item(4).text, "currency"))
Next
y ya despues para sacas los totales, sumando la columna 4 en mi caso
este es mi metodo para sacar totales:
Código:
Private Sub getTotal(ByRef sumTotal As String)
Dim TotalSum As Double = 0
Dim TempNode As ListViewItem
Dim TempDbl As Double
For Each TempNode In lvListaRecargas.Items
If Double.TryParse(TempNode.SubItems.Item(4).Text, TempDbl) Then
TotalSum += TempDbl
End If
Next
sumTotal = TotalSum
End Sub
Código:
Public Sub calcularTotales()
getTotal(ctint)
ctint = CStr(Round(CDbl(ctint), 2, MidpointRounding.ToEven))
ctiva = (Val(ctint) / 100) * Val(ivaVal)
ctiva = CStr(Round(CDbl(ctiva), 2, MidpointRounding.ToEven))
cttotal = Val(ctint) + Val(ctiva)
cttotal = CStr(Round(CDbl(cttotal), 2, MidpointRounding.ToEven))
End Sub
Y ya con eso solo despues asigno los valores en el ticket
Código:
a.AnadirTotal("SUBTOTAL", Format(ctint, "Currency"))
a.AnadirTotal("IVA", Format(ctiva, "Currency"))
a.AnadirTotal("TOTAL", Format(cttotal, "Currency"))
si necesitas ayuda postea tu codigo, asi podremos guiarte
Podrian Ayudarme por Alguna Razon me Sale el Subtotal con Cada Item de la Venta
aqui mi codigo que calcula el Subtotal y como le jago para el resto de los Totales por favor
Private Sub PrintTotals(tk As Ticket)
For Each totales As DataRow In _totales.Rows
tk.AddTotal("Sub Total", totales.Table.Compute("Sum(Importe)", Nothing))
Next
End Sub