|
|
Postada em 12/07/2009 12:11 hs
Nome Endereço ........................................................ Quat descrição Unitário: ........................................................ 1 Produto 50,00 ....................................................... Total 50,00 ....................Fim............................ No caso não saltar a folha, pois é bobina Obrigado T+ |
|
|
|
|
|
APW
|
S.J.RIO PRETO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2009 15:02 hs
Nilton na minha opiniao vc deveria fazer isso com o Print, emito minhas comandas atraves dele...qq duvida posta ai que eu mando um exemplo pra vc...
abraços...
|
|
|
|
|
|
Postada em 12/07/2009 17:43 hs
Ok, APW pode ser em Print sao duas tabelas RS.Fields("PedidoID") = txtPedidoID.Text
RS.Fields("Nome") = txtNome.Text
RS.Fields("Produto") = FG1.TextMatrix(i, 1)
RS.Fields("Quat") = FG1.TextMatrix(i, 0)
RS.Fields("Unitario") = FG1.TextMatrix(i, 2)
RS.Fields("Soma") = FG1.TextMatrix(i, 3) RS.Update
Next i
RS.Close RS.Open "CadPedidos", CnSql, 1, 3
RS.AddNew
RS.Fields("PedidoID") = txtPedidoID.Text
RS.Fields("Placa") = txtPlaca.Text
RS.Fields("Entrada") = txtEntrada.Text
RS.Fields("Hora") = txtHora.Text
ok., Obg t+ |
|
|
|
APW
|
S.J.RIO PRETO
SP - BRASIL
|
|
Postada em 13/07/2009 01:30 hs
Dim sProduto as string * 45
Dim iQtd as integer
Dim sVlUnias string * 14
Dim sVlTotal as string * 14
Dim iCodItem as integer
Dim P_NumArq as Integer
'Aqui vc coloca sua rotina para carregar os valores
'dentro das variaveis
'depois de carregar as variaveis inicia a impessão
P_NumArq = FreeFile ' Retorna um Integer que representa o próximo número de arquivo
Open LPT1 For Output As #P_NumArq 'abre arquivo intermedio impressora
Print #P_NumArq, Chr(27) & "0" 'Diminui o espaco entre linhas da impressão
'Imprime cabeçalho
Print #P_NumArq, Chr(27) + Chr(15); "Cod."; Tab(8); "Descricao"; Tab(23); "Qtd"; _ Tab(30); "Vl.Uni"; Tab(39); "Vl.Total"; Tab(49); "Op"
'Imprime itens
Print #P_NumArq, Chr(27) + Chr(15); iCodItem; Tab(8); sProduto; Tab(23); iQtd; _
Tab(31); sVlUni; Tab(40); sVlTotal; Tab(50); "+"
'Volta ao espaçamento normal entre linhas
Print #P_NumArq, Chr(27) & "1"
'Finaliza Impressão
Close #P_NumArq
Este é só um exemplo, usando o print vc manda a impressão direto para matricial
se vc nao possuir uma matricial pra testar e visualizar a impressao mande para
um arquivo txt ao inves de lpt1, assim vc pode abrir o arquivo e ter uma base
de como esta saindo a impressao...
para impressao em arquivo txt
deixe essas duas linhas como comentario
' P_NumArq = FreeFile ' Retorna um Integer que representa o próximo número de arquivo
' Open sImp For Output As #P_NumArq 'abre arquivo intermedio impressora
crie essa linha e mude #P_NumArq para #1
Open "c:Teste.txt" For Output As #1 'Aqui é pra testar no arquivo txt
para imprimir expandido use Chr$(27) & Chr(14) Ex:
Print #P_NumArq, Chr$(27) & Chr(14) + "Titulo Expandido"; Chr(13)
Esta impressão é para bobinas de 89mm o nro maximo de colunas é 55
valeu ate mais....
|
|
|
|
|
