cs_Didier72
Messages postés76Date d'inscriptiondimanche 10 octobre 2004StatutMembreDernière intervention13 juin 2015 16 févr. 2007 à 20:35
Re
Soit imprimer un fixhier Txt, un tableau ou des éléments avec des titres:
exemple:
-------------------------------
Désignation | Référence | Prix |
-------------------------------
Essai 1 | 12540 | 12,02|
-------------------------------
ceci n'est qu'un exemple
comme la commande Printer.Print ne fonctionne plus sous VS2005
et comment faire le choix de la police et de ses attributs au moment de l'impression ?
Exemple:
Titres et cadres en gras
textes normaux
Pour imprimer un tableau : il suffit de juste de passer ton tableau en paramètre
Exemple : Dim tableau (10,10) ----> imprimer_tableau(tableau) et cà imprime le contenu de ton tableau
Sub imprimer_tableau(ByVal T As Array)
Dim nb_lignes As Integer
Dim nb_colonnes As Integer
Dim iCol, iLig As Integer
Dim S1 As String
Dim FNxls As String
Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
Dim monProcess As New Process()
S1 = Application.StartupPath ' Retourne le chemin d'accèsde l'application
If Mid(S1, Len(S1) - 1) <> "\" Then S1 = S1 & "\"
FNxls = S1 & "Excel.xls"
' Creer l'application XL
oXL = CreateObject("Excel.Application")
oBook = oXL.Workbooks.Add ' Ajout d'un classeur
oSheet = oBook.Worksheets(1) ' Ajout d'une feuille
With oSheet
For i As Integer = 0 To nb_colonnes ' Permet d'ajouter les nomsdes colonnes de la listview passer en paramètre dans le fichier XL
.Cells(1, i + 1) = T(0, i)
Next
'Boucle ajoutant tout les items contenus dans la ListView dans lefichier excel
For iCol = 0 To nb_colonnes
For iLig = 1 To nb_lignes
.Cells(iLig + 2, iCol + 1) = T(iLig, iCol)
Next
Next
End With
' 1° Ligne : Titres en Gras
oSheet.Rows(1).Font.Bold = True
' Paramétrer les marges de la feuille
oSheet.PageSetup.LeftMargin = 0.393700787401575 ' Marge de gauche
oSheet.PageSetup.RightMargin = 0.393700787401575 ' Marge de droite
oSheet.PageSetup.TopMargin = 0.393700787401575 ' Marge du haut
oSheet.PageSetup.BottomMargin = 0.393700787401575 ' Marge du bas
' Afficher le quadrillage sur la feuille
oSheet.PageSetup.PrintGridlines = True
' Afficher le tableau de manière centrer horizontalement sur la feuille
oSheet.PageSetup.CenterHorizontally = False
' Paramétrer la feuille en mode Paysage
oSheet.PageSetup.Orientation = 2 ' ( = 1 : Portrait )
oBook.SaveAs(FNxls)
oXL.ActiveSheet.printout() ' Lancer l'impression
oXL.Quit() ' Ferme le processus
My.Computer.FileSystem.DeleteFile(FNxls)