Engenhação de Softeria

(Trying) English version : Category: Tools __________________________ If you are trying to dinamically set an image into the control Picture (ICROleObject) and you are getting the error "Permission Denied" when you are using SetOleLocation method, I suggest you try this following code instead of SetOleLocation method: Private Sub Section1_Format(ByVal pFormattingInfo As Object)     Dim logofile As String     logofile = app.Path & "\logo.jpg"     If Dir$(file) <> "" Then     'File exists...         Set Picture2.FormattedPicture = LoadPicture(logofile)         'FormattedPicture method used instead of SetOleLocation...     Else         Picture2.Suppress = True 'If does not exist, suppress that control.     End If End Sub That error happens because your code is probably located on wrong event. It must be placed exactly on " SectionXXX_Format" event where picture object is. Português : Categoria: Ferramentas

Num cenário onde já se possui o relatório criado no Crystal e é necessário passar parâmetros via código pelo VB sem apresentar a tela de valores do CR e sem muita conversa, segue a solução minerada: Adicionar componentes: Crystal Report Viewer Control Crystal Activex Report Viewer Library 11.5 No Project Explorer, -Add -> Crystal Report Component (Relatório Existente) -Indique seu relatório previamente criado no Crystal -Informe "sim" para as opções de criar/inserir form com visualizador do relatório e alterar opção de start do projeto.(opcional) Não precisa criar fórmula ou parâmetro, basta passar o valor para o campo da tabela, conforme abaixo: Opção 1 de código: Simplesmente definir: Private Sub Form_Load()  CrystalReport1.EnableParameterPrompting = False  'Passando o parâmetro p/ "tabela.campo" - Inclua as chaves{}!  'Se preferir, concatene a uma textbox.text, por exemplo.  CrystalReport1.RecordSelectionFormula = "{compras.nCo