Bonjour à tous,
Je tente désespérément de changer l'imprimante Excel avant d'imprimer une feuille. Je dois bugger () car l'applicatif me renvoie "nombre de parametre non valide"
Ci dessous mon code (qui fonctionne quand VmExcel.ActivePrinter n'est pas présent...)
Avez vous une idée ?

Par avance , Merci
Paladyn


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
VmExcel:=CreateOleObject('Excel.Application');
VmExcel.Visible:=False;
Try
ExcelFileName:=ExtractFilePath(Application.ExeName)+'Monfichiers.xls';
ExcelWBks:=VmExcel.Workbooks;
ExcelWBk:=ExcelWBks.Open(ExcelFileName);
ExcelSheetName:='MaFeuille';
ExcelSheet:=ExcelWBk.Worksheets[ExcelSheetName];
VmExcel.ActivePrinter[0]:=Form4.LBIMP.Text;
 
ExcelRange:='B1'; 
ExcelSheet.RangeExcelRange].Value:=Form4.CBNOMS.Text;
 
If RG1.ItemIndex=0 then
Begin
ExcelSheet.PrintOut;
ExcelWBk.Close(False);
end;
 
If RG1.ItemIndex=1 then ExcelWBk.SaveAs(ExtractFilePath(Application.ExeName)+'Mon Fichier Modifié - '+Form4.CBNOMS.Text);
 Finally
 VmExcel.Quit;
 End;