IMPRIMER LE CONTENU D'UNE FORM
Imprimer une form
(par taoteblues)
Créer un bouton pour l'impression de la feuille:
PUBLIC SUB Button9_Click()
'Imprimer une feuille
DIM imageWidth AS Integer
DIM imageHeight AS Integer
DIM mafeuille AS Picture
mafeuille = ME.Grab()
mafeuille = mafeuille.Image.Stretch(ME.W * 5, ME.H * 5).Picture
imageWidth = mafeuille.Width
imageHeight = mafeuille.Height
Draw.Begin(PRINTER)
'impression centrée
Draw.Picture(mafeuille, (Printer.Width - imageWidth) / 2, (Printer.Height - imageHeight) / 2)
Draw.End
END
Remarque :
La copie dans le presse papier du form se fait par la commande GRAB
L'envoi sur l'imprimante se fait par la commande DRAW.PICTURE sur le PRINTER