Bonjour voici mon code, j'aimerais savoir comment imprimer la feuille excel en mode paysage.
Merci bcp!
If
CheckBox4.Checked =
True
And autorisation =
True
Then
' LISTE DES MACHINESexcel4.prRemplirDataSet("SELECT codemachine,nomMachine from tblMachines", "tblMachines")
appxls.Worksheets.Add(After:=appxls.Worksheets(appxls.Worksheets.Count))
appxls.ActiveSheet.Name = "Liste des machines"
Dim myTable4
As DataTable
Dim myRow4
As DataRow
Dim myColumn4
As DataColumn
Dim i4
As
Integer
i4 = 0
REM DEFINITION DES EN-TETE DE COLONNES
For
Each myTable4
In excel4.dsDataSet.Tables
For
Each myColumn4
In myTable4.Columnsappxls.ActiveSheet.Cells(1, i4 + 1) = myTable4.Columns(i4).ColumnName
i4 = i4 + 1
Next
Next
Dim j4
As
Integerj4 = 2
REM CHARGEMENT DES DONNEES DANS LA FEUILLE EXCEL
For
Each myTable4
In excel4.dsDataSet.Tables
For
Each myRow4
In myTable4.Rowsi4 = 1
For
Each myColumn4
In myTable4.Columnsappxls.ActiveSheet.Cells(j4, i4) =
CType(myRow4(myColumn4) & "",
String)i4 += 1
Next myColumn4j4 += 1
Next myRow4
Next myTable4
' on peut sauvegarder notre document sur le disqueappxls.ActiveWorkbook.Save()
End
If
'imprimer un feuille
appxls.ActiveWorkbook.Worksheets("Liste des machines").Activate()
appxls.ActiveSheet.pagesetup.centerheader = "Liste des machines"
appxls.ActiveSheet.PageSetup.PrintArea = ""
appxls.ActiveSheet.PageSetup.Zoom
Falseappxls.ActiveSheet.PageSetup.FitToPagesWide 1
appxls.ActiveSheet.PageSetup.FitToPagesTall =
Falseappxls.ActiveCell.EntireColumn.AutoFit()
appxls.ActiveCell.EntireRow.AutoFit()
appxls.ActiveWindow.SelectedSheets.PrintOut()
Afficher la suite