Estou fazendo um relatório e pensei em utilizar o FWPrintSetup mas preciso que o relatório gere em pdf e planilha também, estou lendo sobre o TREPORTS. Mas se tiverem alguma opção. Eu desenvolvi um com oReport, oSection e tal, mas preciso que tenha um cabeçalho com imagem e nesse caso por ser muito simples, não atende, essa seria minha opção que gera em pdf e em planilha. Preciso de opções.
relatório totvs
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
Miriam,
Uma alternativa seria gerar e executar um VBScript no cliente. Segue um exemplo simples:
'Bind to the Excel object Set objExcel = CreateObject("Excel.Application") 'Create a new workbook. objExcel.Workbooks.Add 'Select the first sheet Sheet = 1 'Bind to worksheet. Set objSheet = objExcel.ActiveWorkbook.Worksheets(Sheet) 'Name the worksheet objSheet.Name = "VBS_Excel_Example" 'Set the save location strExcelPath = "H:\Vbs_Excel.xlsx" '-------------------------------------------------------- 'Populate the worksheet with data '-------------------------------------------------------- ' objSheet.Cells(row, column).Value = "Whatever" objSheet.Range("A2").Select objExcel.ActiveCell.Worksheet.Pictures.Insert("H:\gtin.png") 'Add some titles to row 1 objSheet.Cells(1, 1).Value = "Name" 'Row 1 Column 1 (A) objSheet.Cells(1, 2).Value = "Description" 'Row 1 Column 2 (B) objSheet.Cells(1, 3).Value = "Something Else" 'Row 1 Column 3 (C) 'Add some data using a loop For row = 2 to 10 objSheet.Cells(row, 1).Value = "Item " & row & " Name" objSheet.Cells(row, 2).Value = "Item " & row & " Description" objSheet.Cells(row, 3).Value = "Item " & row & " Something Else" Next '-------------------------------------------------------- ' Format the spreadsheet '-------------------------------------------------------- 'Put the first row in bold objSheet.Range("A1:C1").Font.Bold = True 'Change the font size of the first row to 14 objSheet.Range("A1:C1").Font.Size = 14 'Freeze the panes objSheet.Range("A2").Select objExcel.ActiveWindow.FreezePanes = True 'Change column A and B to use a fixed width objExcel.Columns(1).ColumnWidth = 20 objExcel.Columns(2).ColumnWidth = 30 'Change column C to autofit objExcel.Columns(3).AutoFit() 'Change the background colour of column A to a light yellow objExcel.Columns(1).Interior.ColorIndex = 36 'Change the font colour of column C to blue objExcel.Columns(3).Font.ColorIndex = 5 '-------------------------------------------------------- ' Save the spreadsheet and close the workbook '-------------------------------------------------------- objExcel.ActiveWorkbook.SaveAs strExcelPath objExcel.ActiveWorkbook.Close 'Quit Excel objExcel.Application.Quit 'Clean Up Set objSheet = Nothing Set objExcel = NothingAbraços!
Tiago Beraldi
Fone.....: +55 11 99493-5465
Email....: tiago.beraldi@gtin.inf.br
LinkedIn.: linkedin/in/tiagoberaldi
Website..: https://gtin.inf.br/
-
Boa noite Miriam, seria então um relatório com imagem, PDF e planilha? A logo do TReport que contém a imagem não lhe atende? A planilha deve ser exportada com a imagem também?
— Daniel Mendes 31 de Mar de 2020Isso, conversei com quem me solicitou o relatório, e o PDF nem é tão importante, o importante é tem que gerar uma planilha com imagem. Tentei utilizar o metodo SayBitmap mas não deu certo, pensei em usar o FWMsExcelEx.
— Miriam Félix 02 de Apr de 2020O FWMSExcel aceita imagem voce sabe?
— Miriam Félix 02 de Apr de 2020