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ª
|
RIO DE JANEIRO RJ - BRASIL
|
|
Postada em 19/04/2005 12:59 hs
__________________________________________________________________________ Qualquer coisa post 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?
|
|
|
|
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
|
|
|