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;
Partager