//** Déclaration des Variables **
hwnd est un entier     //** Handle du champ image **
hwndfen est un entier     //** Handle de la fenêtre ou du champ à copier **
hdcScreen est un entier
Ch_AdresseImage est une chaîne     //** Adresse de l'aimage créée **
rect est composé de 
	l est un entier 
	t est un entier 
	r est un entier 
	b est un entier 
FIN
HORZRES est un entier
VERTRES est un entier
dcim1 est un entier 
//** Initialisation des Variables **
Ch_AdresseImage = G_Ch_AdressePlanning + "\" + CbxType.ColCodeType
hwnd = Handle(ImgCopieEcran)
hwndfen = Handle(FrmPlanningReservation)
hdcScreen = AppelDLL32("user32","GetWindowDC" , hwndfen) 
//** Création de l'aperçu **
AppelDLL32("user32","GetWindowRect" , hwndfen , &rect) 
HORZRES = rect.r - rect.l 
VERTRES = rect.b - rect.t 
dcim1 = dDébutDessin(ImgCopieEcran) 
API("gdi32","StretchBlt", dcim1, 0, 0, ImgCopieEcran..Largeur, ImgCopieEcran..Hauteur, hdcScreen, 0, 0, HORZRES, VERTRES, 0x00CC0020) 
//** Création de l'image **
dSauveImageJPEG(ImgCopieEcran,Ch_AdresseImage,100)
AppelDLL32("user32","ReleaseDC",hwndfen,hdcScreen) 
//** On déclara la fin du dessin **
dFinDessin() 
//** On informe la création de l'aperçu et on demande si on veut l'ouvrir **
SELON Dialogue("La création du planning de la semaine pour : %1 s'est bien déroulée", CbxType.ColNomType)
	//** Ouvrir le fichier créée **
	CAS 1 :
		LanceAppliAssociée(Ch_AdresseImage)
	//** Imprimer le planning **
	CAS 2 :
		iImprimeImage(Ch_AdresseImage,0,0,100)
		iFinImprime()
	//** Ne rien Faire **
	CAS 3 :
		//** On ne fait rien **
FIN