USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Preview de Relatório Print na Tela
Leandro Bueno
não registrado
Postada em 19/04/2005 12:50 hs   
Pessoal fiz o seguinte relatório no print e queria saber se vocês sabem como eu faço um preview do relatório antes de ser impresso na tela?
Agradeço desde já.
O relatório é este:
If MsgBox("Inicia a Impressão?", 36, razao) = 7 Then
    Exit Sub
End If
Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM originais")
acum = 0
pag = 0
ll = 60
Printer.FontName = "Arial" 'declarar fonte desejada
Printer.Orientation = 1 'onde 1=retrato e 2=paisagem
Printer.PaperSize = 1
Printer.ScaleMode = 5
Printer.FontSize = 8 'tamanho da fonte
On Error Resume Next
var_sql.MoveMin
Do While Not var_sql.EOF
    If ll >= 60 Then
        Printer.Print 'linha em branco
        Printer.Print
        pag = pag + 1
        Printer.Print Tab(1); "     CR DOC 1.0";
        Printer.Print Tab(40); "Data :" + CStr(Date);
        Printer.Print Tab(170); "Pag. :" + Str(pag)
        Printer.Print Tab(1); String(160, "_")
        Printer.Print Tab(45); "Controle de Documentos Originais Internos                                                                                                 CDOI"
        Printer.Print Tab(1); String(220, "_")
        Printer.Print Tab(1); "   Código";
        Printer.Print Tab(12); "Tipo";
        Printer.Print Tab(32); "Documento";
        Printer.Print Tab(62); "Rev";
        Printer.Print Tab(82); "Data";
        Printer.Print Tab(102); "Localização";
        Printer.Print Tab(1); String(160, "_")
        Printer.Print
        ll = 8
     End If
     Printer.Print Tab(3); Format(var_sql!codoriginal, "000");
     Printer.Print Tab(12); var_sql!tipodocumento;
     Printer.Print Tab(32); var_sql!documento;
     Printer.Print Tab(62); var_sql!revisao;
     Printer.Print Tab(82); var_sql!Data;
     Printer.Print Tab(102); var_sql!localizacao;
     var_sql.MoveNext
     If ll = 60 Then
        Printer.NewPage 'jogar numa próxima pagina
     End If
Loop
Printer.Print
Printer.EndDoc
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 19/04/2005 12:59 hs            

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
Leandro Bueno
não registrado
Postada em 19/04/2005 15:50 hs   
Não consegui colocar o meu relatório numa picturebox como diz o exemplo do site.
Alguém sabe um jeito melhor?
     
screech
PORTO ALEGRE
RS - BRASIL
Postada em 20/04/2005 02:34 hs            
Se utilizas SQL porque não tentas o DataReport???
Eu acho muito mais fácil a sua utilização!!!

--------------------------------------
Screech
"Programar é arte..."
     
Leandro Bueno
não registrado
Postada em 20/04/2005 09:58 hs   
Pessoal já consegui colocar meu relatorio numa preview no picturebox.
Mas agora como eu faço para deixar os dados do relatório que aparecem na picturebox com um tamanho médio, pois a picture esta um pouco grande, e se eu diminuir a picturebox, o relatório que sai nela sai cortado..
eu fiz o seguinte:
Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset(
     
Leandro Bueno
não registrado
Postada em 20/04/2005 10:00 hs   
O código que eu fiz esta completo:
Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM controledocumentos")
acum = 0
pag = 0
ll = 60
On Error Resume Next
var_sql.MoveMin
Do While Not var_sql.EOF
    If ll >= 60 Then
        pag = pag + 1
        Picture1.Print Tab(1); "     CR DOC 1.0";
        Picture1.Print Tab(40); "Data :" + CStr(Date);
        Picture1.Print Tab(170); "Pag. :" + Str(pag)
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print Tab(45); "Controle de Distribuição de Documentos Internos                                                 CDDI"
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print Tab(1); "   Código";
        Picture1.Print Tab(12); "Tipo";
        Picture1.Print Tab(32); "Documento";
        Picture1.Print Tab(52); "Rev";
        Picture1.Print Tab(62); "Data";
        Picture1.Print Tab(82); "Nº";
        Picture1.Print Tab(92); "Setor";
      Picture1.Print Tab(122); "Resp";
        Picture1.Print Tab(152); "Devolução";
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print
        ll = 8
     End If
     Picture1.Print Tab(3); Format(var_sql!coddocumentos, "000");
     Picture1.Print Tab(12); var_sql!tipodocumento;
     Picture1.Print Tab(32); var_sql!documento;
 Picture1.Print Tab(52); var_sql!revisao;
     Picture1.Print Tab(62); var_sql!Data;
     Picture1.Print Tab(82); var_sql!numero;
     Picture1.Print Tab(92); var_sql!setor;
 Picture1.Print Tab(122); var_sql!resp;
     Picture1.Print Tab(152); var_sql!devolucao;
     var_sql.MoveNext
     If ll = 60 Then
        Printer.NewPage 'jogar numa próxima pagina
     End If
Loop
Picture1.Print
Printer.EndDoc
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página