Sujet Précédent Sujet Suivant

Excel .net imprimer en paysage

Résolu
loulouhoude Messages postés 2 Date d'inscription mercredi 13 septembre 2006 Statut Membre Dernière intervention 24 septembre 2006 - 24 sept. 2006 à 19:31
loulouhoude Messages postés 2 Date d'inscription mercredi 13 septembre 2006 Statut Membre Dernière intervention 24 septembre 2006 - 24 sept. 2006 à 19:41
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()

1 réponse

Réponse 1 / 1
loulouhoude Messages postés 2 Date d'inscription mercredi 13 septembre 2006 Statut Membre Dernière intervention 24 septembre 2006
24 sept. 2006 à 19:41
Finalement je lai trouver seul:


appxls.ActiveSheet.PageSetup.Orientation = 2

ou


appxls.ActiveSheet.PageSetup.Orientation = xlLandscape
3
Rejoignez-nous