Equivalent PrintArea pour delphi [Résolu]

pratrick 26 Messages postés vendredi 7 mars 2003Date d'inscription 22 octobre 2010 Dernière intervention - 15 juin 2010 à 00:14 - Dernière réponse : pratrick 26 Messages postés vendredi 7 mars 2003Date d'inscription 22 octobre 2010 Dernière intervention
- 15 juin 2010 à 20:02
Messieurs Bonjour
j'ai une petite question qui est toute bête
je n'arrive pas à faire une zone d'impression sur excel
j'ai tente sans succès
OleApplication.Range['A1:G51'].select;
OleApplication.Selection.PageSetup.PrintArea :=true;


quelqu'un a t'il une petite idée
d'avance merci
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
ThWilliam 424 Messages postés mardi 3 janvier 2006Date d'inscription 26 novembre 2013 Dernière intervention - 15 juin 2010 à 13:09
3
Merci
Salut.

D'après le code de la macro créée sur Excel, essaye ceci:

with OleApplication do
begin
    Range['A1:G51'].Select; // ceci n'est pas nécessaire 
    ActiveSheet.PageSetup.PrintArea = '$A$1:$G$51';
end;


A +
Thierry

Merci ThWilliam 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de ThWilliam
pratrick 26 Messages postés vendredi 7 mars 2003Date d'inscription 22 octobre 2010 Dernière intervention - 15 juin 2010 à 20:02
0
Merci
En effet tes indications mon bien aidé
j'ai mis
OleApplication.ActiveSheet.PageSetup.PrintArea := '$A$1:$G$51';


et parfait la zone d'impression est activé
Commenter la réponse de pratrick

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.