Discussion :

[dederfred]

Est-il possible de lancer une commande visualBasic dynamique pour Word dans Delphi. (Avec des argument venant de delphi.
Je dois lancer cela :

Code :

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

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

J’ai essayer de passer par la commande sous Delphi monfichierword.printOut();

Mais j'ai une erreur me disant :

Ma ligne est celle la :

Code :

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

monFichier.PrintOut(Background,EmptyParam,range,EmptyParam,EmptyParam,EmptyParam,EmptyParam,copie,EmptyParam,PageType,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

J’avoues que je ne vois pas pourquoi cela ne fonctionne pas .
ma variable copie provient d'une autre form et quand je fais un showmessage(copie); avant le printout il m'affiche bien 1 .

Je ne comprends pas.

Merci d’avance.

[defluc]

Bonjour

La commande printout comporte 15 paramètres et non 18 :

procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; var PrintToFile: OleVariant; var Collate: OleVariant; var FileName: OleVariant; var ActivePrinterMacGX: oleVariant; var ManualDuplexPrint: OleVariant); safecall;