Discussion :

[zanoubya]

Bonjour;
J'ai un fichier Excel contenant un tableau et je veux que ma feuille soit en mode paysage càd quand je l'imprime qu'elle soit en format A4.
C'est quoi la propriété à utiliser?
Voici mon code qui crée le fichier Excel et sa feuille que je cherche à imprimer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
 ExcelApplication := CreateOleObject('Excel.Application');
 ExcelApplication.Visible := true;
 
 vXLWorkbooks := ExcelApplication.Workbooks;
 
 
 vXLWorkbook := vXLWorkbooks.Add;
 
 
   vWorksheet := vXLWorkbook.WorkSheets['feuil1'];

Merci infiniment

[NABIL74]

salut,

Bonjour;
J'ai un fichier Excel contenant un tableau et je veux que ma feuille soit en mode paysage càd quand je l'imprime qu'elle soit en format A4.
C'est quoi la propriété à utiliser?
Voici mon code qui crée le fichier Excel et sa feuille que je cherche à imprimer

pour imprimer en mode "A4", il suffit d'utiliser le propriété "PaperSize" =>"xlPaperA4".
tu peux imprimer ça en mode "Paysage", utilise "xlLandscape".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses ComObj;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: Variant;
begin
try
ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Visible := True;
    ExcelApp.WorkBooks.Open( 'C:\test.xls' );
    ExcelApp.WorkSheets[1].Activate;
    ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //mode paysage
 
  ExcelApp.ActiveSheet.PageSetup.LeftMargin := 35;
 ExcelApp.ActiveSheet.PageSetup.RightMargin := -15;
 
 //  Marge
 ExcelApp.ActiveSheet.PageSetup.FooterMargin := ExcelApp.InchesToPoints(0);
 
 // Ajuster à la page X (s) de largeur par hauteur Y  
 ExcelApp.ActiveSheet.PageSetup.FitToPagesWide := 1; // Y
 ExcelApp.ActiveSheet.PageSetup.FitToPagesTall := 3; // Y
 
    ExcelApp.ActiveSheet.PageSetup.PaperSize := xlPaperA4;// Feuille A4
    ExcelApp.Worksheets.PrintOut;
  finally
    if not VarIsEmpty(ExcelApp) then
    begin
     ExcelApp.Quit;
     ExcelApp := Unassigned;
    end;
  end;
 
end;

A+

NABIL74

[zanoubya]

Salut;
Merci infiniment pour ta réponse très utile .
ALors ca marche mais j'ai encore mon tableau tronqué en terme de longueur.
Quelles sont les propriétés à changer pour obtenir un affichage complet ?
Merci

[NABIL74]

Salut;
Merci infiniment pour ta réponse très utile .
ALors ca marche mais j'ai encore mon tableau tronqué en terme de longueur.
Quelles sont les propriétés à changer pour obtenir un affichage complet ?
Merci

il faut penser à ajuster les colonnes et les lignes de ta feuille Excel selon son contenu. tu peux aussi réduire la taille de ton "Font".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: Variant;
begin
try
ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Visible := True;
    ExcelApp.WorkBooks.Open( 'C:\test.xls' );
    ExcelApp.WorkSheets[1].Activate;
 
    ExcelApp.ActiveSheet.PageSetup.PaperSize := xlPaperA4;// Feuille A4
    ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //mode paysage
 
      ExcelApp.Cells.Select;// sélectionner toutes les cellules
     ExcelApp.Selection.Columns.AutoFit; // ajuster les colonnes selon leur contenu
    ExcelApp.Selection.Rows.AutoFit; // ajuster les lignes selon leur contenu
 
 ExcelApp.Worksheets.PrintOut;
  finally
    if not VarIsEmpty(ExcelApp) then
    begin
     ExcelApp.Quit;
     ExcelApp := Unassigned;
    end;
  end;
end;

Bonne chance.

NABIL74

[zanoubya]

Bonjour;
Je viens d'ajuter le contenu et diminuer la police malgré ca j'obtiens un apercu encore tronqué.
Voici ci joint le fichier excel et fichier PDF obtenu par l'apercu .
Est ce que je dois changer les marges? si oui quelles sont les valeurs à attribuer?
Merci

[NABIL74]

bonjour zanoubya,

Je viens d'ajuter le contenu et diminuer la police malgré ca j'obtiens un apercu encore tronqué.
Voici ci joint le fichier excel et fichier PDF obtenu par l'apercu .
Est ce que je dois changer les marges? si oui quelles sont les valeurs à attribuer?

tu veux imprimer tout le contenu de ton fichier en une seule page?
si c'est ça que tu cherches, je crains qu'il est impossible parceque ton fichier est composé de 6 pages! même si on réussi à ajuster le contenu et réduire la police,ça ne tiendra pas sur une seule page.

A+

NABIL74

[zanoubya]

Bonjour Nabil;
c'est ce que je cherche exactement obtenir tout le contenu en une seule page en mode paysage c'est pas possible ???

[NABIL74]

j'ai essayé sous Excel de réduire la police,d'ajuster le contenu,réduire au maximum les marges mais ça n'a pas marché. ton fichier contient 110 lignes.
même sur A3, l'impression se compose de 2 feuilles.
pourquoi tu tiens à imprimer ça en 1 seul page?

NABIL74

[zanoubya]

Voilà je viens de diminuer un peu la taille et utiliser ces deux instructions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 ExcelApplication.ActiveSheet.PageSetup.LeftMargin
:=ExcelApplication.Application.InchesToPoints(0.1);
 
  ExcelApplication.ActiveSheet.PageSetup.RightMargin := ExcelApplication.Application.InchesToPoints(0.1);

Et ca marche Merciiiiiiiiii