Excel .net imprimer en paysageRésolu

Question

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()

loulouhoude · Accepted Answer

Finalement je lai trouver seul:


appxls.ActiveSheet.PageSetup.Orientation = 2

ou


appxls.ActiveSheet.PageSetup.Orientation = xlLandscape

Excel .net imprimer en paysage

1 réponse

Votre réponse

Discussions similaires