UTILITAIRE CRYSTAL REPORTS
anvert
Messages postés
12
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
17 septembre 2007
-
19 déc. 2005 à 11:54
bdl20042000 Messages postés 63 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 19 mai 2009 - 11 févr. 2011 à 09:26
bdl20042000 Messages postés 63 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 19 mai 2009 - 11 févr. 2011 à 09:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35137-utilitaire-crystal-reports
https://codes-sources.commentcamarche.net/source/35137-utilitaire-crystal-reports
11 févr. 2011 à 09:26
Vous deviez rencontrer un problème à l'initialisation de la classe car il indique qu'il manque le fichier "DefaultAnimation.gif".
Pour contourner le problème, dans les propriétés du projet - Ressources, j'ai ajouté une image vide en format GIF avec comme nom "DefaultAnimation" - puis dans l'Explorateur de solutions, je suis aller retrouver le fichier pour pouvoir changer son propriété "Action de génération" pour sélectionner "Ressource incorporée" au lieu de "Aucun" par défaut.
10 févr. 2010 à 11:42
10 févr. 2010 à 11:39
10 févr. 2010 à 11:17
10 févr. 2010 à 10:46
10 févr. 2010 à 00:04
voilà le code que jé utilisé :
CrystalReport11.DataDefinition.FormulaFields("msm").Text = TextBox1.Text
9 févr. 2010 à 16:07
8 févr. 2010 à 21:52
CrystalReport11 .formuletext("nom_champ")=.............. erreur " formulatext né pas un
membre de windowsapplication.crystalreport1" ?
merci .
8 févr. 2010 à 11:29
myCRHelper.FormulaText("MaFormule") = "'" & txtFormule.Text.Replace("'", "''") & "'"
6 févr. 2010 à 15:09
merci d'avance
21 janv. 2009 à 09:03
On pourrait cependant faire que le format par défaut soit déduit de l'extension du nom de fichier de destination. Pour obtenir ce comportement, il suffit de retirer le mot clé 'Optional' et l'initialisation qui encadrent le paramètre 'format' de la méthode ci-dessus et d'ajouter la surcharge suivante:
Public Sub SaveAs(ByVal nomFichier As String)
SaveAs(nomFichier, IO.Path.GetFileNameExtension(nomFichier).Substring(1))
End Sub
20 janv. 2009 à 15:24
pour ceux qui ont cherché, un moment comme moi, à enregistrer le rapport sans l'afficher.
voici le code que j'ai rajouté :
' Sauvegarde le rapport dans un fichier en format PDF, XLS, WORD, RTF, HTM
' sans afficher à l'écran le rapport
Public Sub SaveAs(ByVal nomFichier As String, Optional ByVal format As String = "PDF")
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions
Dim strFormat As String = format.ToUpper
crDiskFileDestinationOptions.DiskFileName = nomFichier
crExportOptions = m_Report.ExportOptions
crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
crExportOptions.DestinationOptions = crDiskFileDestinationOptions
Select Case strFormat
Case "XLS"
crExportOptions.ExportFormatType = ExportFormatType.Excel
Case "DOC"
crExportOptions.ExportFormatType = ExportFormatType.WordForWindows
Case "RTF"
crExportOptions.ExportFormatType = ExportFormatType.RichText
Case Else
crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
End Select
Try
m_Report.Export()
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
il ne reste plus qu'à l'appeler via un CRH.SaveAs("C:\test.pdf") pour l'enregistrer en format PDF (celui par défaut) ou CRH.SaveAs("C:\test.xls","xls") si en format Excel etc.
27 août 2007 à 05:02
15 août 2007 à 21:53
30 nov. 2006 à 19:50
Tout d'abord, quand tu imprimes des bons de commande ou des factures, il est bon que chacun tienne sur une page ou du moins que chaque document (facture ou bon de commande) commence sur une nouvelle page. Pour obtenir cet effet, fais un clic droit sur la marge à droite de la section correspondant au pied de page du document. En principe, cela devrait être un groupe (puisque que tu imprimes en fait des lignes de facture groupées par facture. Tu obtiens un tel jeu d'enregistrements en faisant une jointure entre la table des factures et celle des lignes de facture). Dans le menu contextuel qui apparaît selectionne 'Section Expert' (désolé mon Crystal est en Anglais). Dans la boîte de dialogue qui suit, trouve et coche la case 'Reset page number after'. Pour reduire l'état à une seule facture, construit ta requête de sorte qu'elle ne retourne que les lignes de cette facture. Pour le reste, concevoir un état c'est comme générer un document Word: c'est avant toute chose une question de bon goût.
29 nov. 2006 à 10:23
est ce que je peut mettre un code qui me permet de selectionner un bon de commande donnée et le crystal report peut charger ce bon en tenant compte que tous les bon son classées dans un seul table triés par date
16 mai 2006 à 20:47
ton code pourrait ressembler a ceci :
Dim helper As New CRHelper()
Select Case ComboBox1.SelectedItem
Case valeur1
helper.FileName = "valeur1.rpt"
helper.DataSource = dsValeur1
.
.
.
End Select
helper.Print(Nothimg)
15 mai 2006 à 02:42
et pour un combobox je veu chosir un etat ds le combobox et le crystale se charge aprés mon choix avec tout les informations de l'etat que j'ai choisi et aprés je click sur un bouton pour imprimé la fiche .merci
20 déc. 2005 à 18:48
19 déc. 2005 à 11:54
La base Northwind que tu utilises est une base de données Access au format mdb. Il en existe une autre sous forme d'un projet Access de format ADP.
Dans ton code tu te sers de SQL Server pour ouvrir une connexion à la base. Elle échoue car le server SQL ne sait pas l'atteindre sous ces 2 formats.
Comment fais-tu?