IMPRIMIR RELATORIOS USANDO FORM PRINT

NILTON.VIANNA 08/05/2010 17:41:10
#341305
Alguém tem alguma idéia pra mim (por favor)

Estou tentando fazer meu próprio formulário de Relatórios
De impressão usando um form.
Sem ter que usar o Crystal Report. ou DataReport

Conforme anexo...

Grato Nilton
MOREIRA 08/05/2010 18:38:04
#341307
Sub Fecha_Cupom()
On Error GoTo Trataerro
Dim Linha As String
Linha = Mid(Linha, 50 - Len(TxtValor_Pago.Text))
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Chr$(27) & Chr(15)
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(5); [Ô]TOTAL A PAGAR[Ô]; Tab(38); Spc(10 - Len(LblValor_Compra.Caption)); LblValor_Compra.Caption
Print #1, Spc(5); LblForma_Pagamento.Caption; Tab(38); Spc(10 - Len(TxtValor_Pago.Text)); TxtValor_Pago.Text
Print #1, Spc(5); [Ô]T R O C O [Ô]; Tab(38); Spc(10 - Len(LblValor_Troco.Caption)); LblValor_Troco.Caption
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Tab(10); [Ô] Obrigado Pela Preferencia[Ô]
Print #1, Spc(4); [Ô] Aqui voce encotra os menores precos da Cidade[Ô]
Print #1, Tab(10); [Ô] Volte Sempre ! [Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); [Ô]xxxxxxxxx(00) 0000-00000::e-mail :bbbbb@nnnnn.com[Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Close #1
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema, Impressora Inoperante[Ô]
End Sub
Public Sub Imprimi_Cupom()
On Error GoTo Trataerro
Dim Alinha As String * 12
[ô]--------
Cabecalho
[ô]--------
Open [Ô]LPT1[Ô] For Output As #1
Set rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Itens_Venda Where Num_Cupom =[ô][Ô] & Numero_Cupom & [Ô][ô] And Num_Caixa = [ô][Ô] & Numero_Caixa & [Ô][ô]And Status = [ô]Aberto[ô][Ô]
rst.Open Sql, Conexao, 3

Do While Not rst.EOF = True
Print #1, Spc(0); Format(rst!Itens, [Ô]000[Ô]); Spc(1); Format(rst!Codigo_Barra, [Ô]00000000000000[Ô]); Spc(1); Mid(rst!Nome_DoProduto, 1, 30)
Print #1, Spc(9); Format(rst!Quantidade, [Ô]###,##0.000[Ô]); Spc(3); [Ô]X[Ô]; Spc(3); Format(Format(rst!Valor_Unitario, [Ô]###,##0.00[Ô]), [Ô]@@@@@@@@@@@[Ô]); Spc(4); [Ô]=[Ô]; Spc(9); Right(Space(9) & Format(rst!valor_total, [Ô]###,##0.00[Ô]), 10)

rst.MoveNext
Loop
Close #1
[ô]----------
Fecha_Cupom
[ô]----------
Itens = 0
[ô]----------
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema, Impressora Inoperante[Ô]
End Sub
Sub Cabecalho()
On Error GoTo Trataerro
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Chr$(27) & Chr(15)
Print #1, Spc(0); [Ô] bbbbbbbbb[Ô]
Print #1, Spc(0); [Ô] CNPJ: 000000000000000I.E:0000000000000 [Ô]
Print #1, Spc(0); [Ô] Rua iiiiiiiiiiiiiiiiiiiiiii [Ô]
Print #1, Spc(0); [Ô] Bairro = ooooooooooooooooo [Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); Date; Spc(5); Time; Spc(2); [Ô]Nº Cupom[Ô]; Spc(3); Numero_Cupom
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); [Ô] C U P O M [Ô]
Print #1, Spc(0); [Ô]Usuario :[Ô]; Spc(2); Usuario
Print #1, Spc(0); [Ô]Itns|CODIGO | DESCRICAO DO PRODUTO [Ô]
Print #1, Spc(0); [Ô] QTD. R$ VALOR UNIT. TOTAL R$[Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Close #1
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema, Impressora Inoperante[Ô]
End Sub
NILTON.VIANNA 08/05/2010 19:01:29
#341308
MOREIRA

Eu não me expressei direito o que eu quero
é visualizar num FORM o relatório depois imprimir.
HENDELLCARDOSO 08/05/2010 20:17:44
#341320

OLHA VEJA SE ESSE EXEMPLO PODE SERVIR A VOCÊ, ELE REALIZA A MONTAGEM E A IMPRESSÃO ESTILO BOLBINA.
NILTON.VIANNA 09/05/2010 11:57:27
#341340

Ola amigos muito obrigada pela ajuda
Só que eu que eu estou tentando exatamente é criar uma página
De visualização de impressão para relatórios sem ter que usar o datarepor
Ou Crystal usar um Formulário do vb Ex: FrmPrintVendas
Não seria pra cupom fiscal mais sim pra noto fiscal,
Eu vi no cliente quando ele vai imprimir a nota mostra conforme a folha inteira A4
Depois colocar os botões de nova pagina...


Desculpe pela insistência.

Grato
Nilton
NATH4N 09/05/2010 14:31:55
#341351
usa mdiform nesse seu ex ai, vai imprimir os botoes tambem!!!

usa esse ex do Tecla que e muito bom!!!

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8409.

ou esse aqui tbm
SERGIO 09/05/2010 17:34:52
#341367
Citação:

:

OLHA VEJA SE ESSE EXEMPLO PODE SERVIR A VOCÊ, ELE REALIZA A MONTAGEM E A IMPRESSÃO ESTILO BOLBINA.


nossa cara adorei seu exemplo era o que eu tava tentando fazer num topico que eu criei aqui só que é no vb.net tem como converter isso pra vb.net?? usando algum programa?
NILTON.VIANNA 09/05/2010 19:04:02
#341371

Bem amigo acho que me expressei direito
Minha idéia e montar um formulário para relatórios
Usando um form. conforme exemplo.

Grato
TECLA 09/05/2010 19:06:58
#341373
  • Screenshot


  • Link
    IMPRESSAO DE ORDEM DE SERVICO
    No exemplo, foi utilizado um FORM também.
    •
    NILTON.VIANNA 09/05/2010 19:45:55
    #341375

    [txt-size=2]Este comando esta no formulário FrmCadVendas
    no Botão Imprimir segue o exemplo abaixo
    que manda pro Form FrmPrintVenda
    no caso dos Text.Box tudo OK
    o que eu nao estou conseguindo é a listagem das vendas que esta no msflexgrid
    meu msflexgrid é FG1
    eu seleciono a nota normal aparece os dados normal so que no msflexgrid so aparece o primeiro item os demais não..[/txt-size]

    FrmPrintVenda.LNome.Caption = txtNome.Text
    FrmPrintVenda.LCidade.Caption = txtCidade.Text
    FrmPrintVenda.LEndereco.Caption = txtEndereco.Text

    For i = 1 To Key
    [ô]LQuat, LDescricao, LUnitario seria um Label

    FrmPrintVenda.LQuat(FrmPrintVenda.LQuat.UBound).Caption = FG1.TextMatrix(i, 1)
    FrmPrintVenda.LDescricao(FrmPrintVenda.LDescricao.UBound).Caption = FG1.TextMatrix(i, 2)
    FrmPrintVenda.LUnitario(FrmPrintVenda.LUnitario.UBound).Caption = FG1.TextMatrix(i, 3)
    SERGIO 09/05/2010 21:02:21
    #341380

    HENDELLCARDOSO qual font vc usou dento do richtextbox?
    Tópico encerrado , respostas não são mais permitidas
    Voltar