[VB.NET][EXCEL] Insérer un saut de page

Version imprimable

10/04/2006, 19h26
joKED

[VB.NET][EXCEL] Insérer un saut de page

Bonjour à tous.

Je développe une appli de génération de rapports au format Excel, et j'aurais besoin d'insérer par code des sauts de pages dans les feuilles que je génère afin que les utilisateurs puissent les imprimer correctement.

J'aurai donc besoin de savoir deux choses:

- Peux t'on choisir que la page devra être imprimée en paysage? Si oui, comment?

- Comment insérer des sauts de page dynamiquement afin d'ajuster correctement les feuilles pour l'impression?

Si quelqu'un a une idée, ou un lien intéressant, mes recherches ne m'ayant mené à rien de vraiment utile.

Merci de votre aide.

par ex

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports Microsoft.Office.Interop.Excel
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AppExcel As Application, Classeur As Workbook, Feuille As Worksheet
 
        AppExcel = New Microsoft.Office.Interop.Excel.Application
        Classeur = AppExcel.Workbooks.Add()
        Feuille = Classeur.Worksheets(1)
        Feuille.PageSetup.Orientation = XlPageOrientation.xlLandscape
        Feuille.HPageBreaks.Add(Feuille.Cells(15, 1))
        AppExcel.Visible = True
    End Sub
End Class

10/04/2006, 20h50
joKED

Super, c'est exactement ce que je cherchais.
Mais question subsidiaire:

- Est il possible de détecter qu'à partir de telle ligne, il y a besoin d'un saut de page?

Je peux éventuellement choisir par défaut de mettre un saut de page à la ligne n° x ou y, mais n'y a t'il pas un moyen plus élégant?

En tout cas, merci beaucoup pour ce coup de main.
10/04/2006, 21h00
bidou

c'est très dépendants selon les scénarii. Mais globalement la somme des hauteurs de ligne dois faire 460 et la somme des largeurs de colonnes 117 pour une impression en mode paysage sans zoom.
10/04/2006, 22h58
joKED

Un grand merci à toi pour ces précieuses informations, je pense que je réussirai à m'en sortir avec tout cela.