Excel .net imprimer en paysage [Résolu]

Question

Posez votre question Signaler

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

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