Excel .net imprimer en paysage [Résolu]

loulouhoude 2 Messages postés mercredi 13 septembre 2006Date d'inscription 24 septembre 2006 Dernière intervention - 24 sept. 2006 à 19:31 - Dernière réponse : loulouhoude 2 Messages postés mercredi 13 septembre 2006Date d'inscription 24 septembre 2006 Dernière intervention
- 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()
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
loulouhoude 2 Messages postés mercredi 13 septembre 2006Date d'inscription 24 septembre 2006 Dernière intervention - 24 sept. 2006 à 19:41
3
Merci
Finalement je lai trouver seul:


appxls.ActiveSheet.PageSetup.Orientation = 2

ou


appxls.ActiveSheet.PageSetup.Orientation = xlLandscape

Merci loulouhoude 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 84 internautes ce mois-ci

Commenter la réponse de loulouhoude

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.