Comment imprimer un fichier excel en format A4

Version imprimable

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:

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

salut,

Citation:

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:

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

24/06/2009, 18h10
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

Citation:

Envoyé par 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

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:

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

25/06/2009, 11h02
zanoubya

1 pièce(s) jointe(s)

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
25/06/2009, 11h22
NABIL74

bonjour zanoubya,

Citation:

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
25/06/2009, 11h30
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 ??? :(
25/06/2009, 11h47
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

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

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