Posez votre question Signaler

Excel .net imprimer en paysage [Résolu]

Messages postés
2
Date d'inscription
mercredi 13 septembre 2006
Dernière intervention
24 septembre 2006
 - - Dernière réponse : loulouhoude
Messages postés
2
Date d'inscription
mercredi 13 septembre 2006
Dernière intervention
24 septembre 2006
 - 24 sept. 2006 à 19:41
VB.NET Posez votre question Signaler
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

Répondre au sujet

1 réponse

Meilleure réponse
Signaler Commenter la réponse de loulouhoude
Messages postés
2
Date d'inscription
mercredi 13 septembre 2006
Dernière intervention
24 septembre 2006
3
Merci
Finalement je lai trouver seul:


appxls.ActiveSheet.PageSetup.Orientation = 2

ou


appxls.ActiveSheet.PageSetup.Orientation = xlLandscape

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Commenter la réponse de loulouhoude

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.