Pessoal eu sinceramente não consegui fazer, e ja faz um tempo que posto aqui e ninguém consegue me ajudar..

Ja peguei vários exemplos e nada....

POR FAVOR VEJAM SE PODEM ME AJUDAR:
O meu relatório é feito em print, para imprimir uso o comando printer, agora
criei um relatório para ser mostrado na tela, com uma picturebox, só que em vez de usar o printer uso o picture1 ele ficou assim:
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); "     DOC";
        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"
        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
Agora tenho a seguinte duvida:
Para imprimir na impressora ele funciona OK
Meu cadastro tem 80 registros sai a primeira folha com os 56 registros e a segunda com 24 e assim vai.
Ja na Tela como podem ver pelo código, fiz em um picture, mas ele só mostra os primeiros 30.
Como faço para que quando os cadastros chegarem a um numero grande e não couber na picture box criar por exemplo um HSscrollbar, para descer os dados. Ou criar outra picture para ser mostrada a pagina 2.
Sem mais agradeço pela atenção.

 

Quando planejei meu sistema de relatório, usei um richtextbox que além de aceitar figuras, tenho várias opções de formatação e exportação. Te sugiro fazer o mesmo. Picture é feito para visualização de imagens não sendo aconselhável o seu uso como ferramenta de relatório.

Ainda não usei o richtextbox, Qual componente ele se encontra?

Obrigado MArcelo,

mas como eu disse como eu faço para que quando os cadastros chegarem a um numero grande e não couber na picture box criar por exemplo um HSscrollbar, para descer os dados. Ou criar outra picture para ser mostrada a pagina 2.

Não tem isso no exemplo, meu projeto esta quase pronto, só que estou quebrando a cabeça e não consigo....

Olá!!

 

Você tem que paginar o conjunto de registro, criei uma ferramenta que trabalha desta forma.

Por ex.: tenho um relatório com 200 registros e para visualizar todos os registros vou paginando com botões de comando.

 

Se quizer um exemplo me mande um e-mail.

 

Antônio Carlos

Caxias do Sul - RS