sPrinterName := ADevice; FMaFeuille[0].PrintOut(1,2,1,EmptyParam,EmptyParam,EmptyParam,EmptyParam,sPrinterName,0);
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Button1Click(Sender: TObject); var ADevice,Adriver,Aport : array[0..100] of char; ADeviceMode : cardinal; begin if printDialog.Execute then begin Printer.GetPrinter(ADevice,Adriver,Aport,ADeviceMode); ShowMessage(ADevice); end; end;