AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 09:58:41
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

15 commentaire(s) de bdl20042000 sur des sources sur tout CodeS-SourceS

Le : 20/01/2009 15:24:05
Source : UTILITAIRE CRYSTAL REPORTS
merci pour ce code qui me simplifie la gestion des rapports.
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.

Le : 27/10/2008 11:11:06
Source : OPENTWAIN.NET
Bonjour,
c'est un scanner : je voudrai que l'utilisateur n'ai pas la fenêtre justement (ça j'ai trouvé), par contre je n'ai pas réussi à mettre une résolution par défaut via le code.

Le : 21/10/2008 17:23:48
Source : OPENTWAIN.NET
Bonjour,
bravo pour la source.
petite question :
est ce qu'il est possible de modifier la résolution pour la numérisation ?
si oui, quel est le code.
merci

Le : 03/10/2008 11:54:54
Source : LISTE DES LECTEURS & RECHERCHE RÉCURSIVE AVEC FITRE EXTENSION...
Exactement ce que je recherchais pour avoir une liste des lecteurs d'un PC

Le : 16/07/2008 12:53:49
Source : EDITEUR COMPLET XML-DTD-SCHEMA XSD-TRANSFORMATION XSL/XSLT + VALIDATION XML(DTD,SCHEMA XSD) ,GENERATION SCHEMA XSD
le programme a l'air très bien.
merci pour cette source.

Le : 13/06/2008 13:16:51
Source : EXEMPLE DE TRI DANS UNE LISTVIEW (LETTRES,NOMBRES,DATE)
génial

Le : 12/04/2007 16:21:05
Source : DOC2PDF AVEC PDFCREATOR
Oui, car PDFCreator n'est pas encore compatible Vista.

Le : 01/04/2007 10:33:35
Source : DOC2PDF AVEC PDFCREATOR
Salut,
PDFCreator rajoute automatiquement un menu contextuel pour transformer tous les fichiers imprimables en PDF et il intègre Ghostscript.
De plus il peut aussi transformer bien sur PDF, mais aussi en TIFF, JPEG, BMP, EPS, PCX, PS.

Le : 30/03/2007 15:41:33
Source : DOC2PDF AVEC PDFCREATOR
salut,
merci pour la fonction instrRev que je ne connaissais pas.
Pour l'autre fonction, j'avais pris telquel sur le site

Le : 16/03/2007 16:00:14
Source : UTILISEZ WORD POUR IMPRIMER SOUS VB
bonjour,
merci, grâce à votre code, j'ai enfin trouvé comment fermer un document sans avoir le message d'enregistrement.
car "ActiveDocument.Saved = False" + "ActiveDocument.Quit" ne fonctionne pas alors votre "Application.ActiveDocument.Close SaveChanges:=False"
Pour compléter la fermeture, j'ai rajouté dans le modèle Word la fonction
"Sub AutoClose()
    Application.Quit
End Sub"
pour que cela ferme aussi Word.

C'est parce que c'est juste un modèle Word non lancé par un programme VB


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


iPod touch 2ème génération (8 Go)
Entre 210€ et 229€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo Cockpit Airbus A320 Photo pretty girl

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,203 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.