Ola achei esse Código de um cupom, mas não estou conseguindo montar o formulário para ele funcionar, podem me ajudar?
Muito, grato desde já.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 '----------------------------------------------------------------------------------> INICIA CUPOM FISCAL
a = 1
Total = 0
List1.Font = "Courier New"
List1.Width = 6195
List1.Height = 3570
List1.AddItem Date & " " & Time & " CCF:000000 COO:000000"
List1.AddItem " CUPOM FISCAL"
List1.AddItem " ITEM CÓDIGO DESCRIÇÃO"
List1.AddItem " QNT. VL.UNIT( R$) ST VL.ITEM( R$)"
List1.AddItem "---------------------------------------------------"
List1.ListIndex = List1.ListCount - 1
frmpro.Enabled = True
Toolbar1.Buttons(1).Enabled = False
Case 2 '------------------------------------------------------------------------------------------> INSERE ITEM
List1.AddItem " " & Format(a, "#000") & " " & Format(codpro.Text, "#0000") & " " & despro.Text
List1.AddItem " " & Format(qntpro.Text, "#000") & " Un x " & Format(valpro.Text, "#,##0.00;(#,##0.00)") _
& " = " & Format(SubTotal, "#,##0.00;(#,##0.00)") & Format(Total, "#,##0.00;(#,##0.00)")
SubTotal = Total + (valpro.Text * qntpro.Text)
Total = Total + SubTotal
codpro.Text = ""
despro.Text = ""
valpro.Text = ""
qntpro.Text = "1"
a = a + 1
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = True
Case 3 '-------------------------------------------------------------------------------> IMPRIME O CUPOM FISCAL
' em construção
Toolbar1.Buttons(1).Enabled = True
Case 4
Unload Me
End Select
End Sub
