Salut!...
Essaie ce code sur une feuille vierge avec un bouton (command1)...
j'epere que ça pourra t'aider.
Private Sub Command1_Click()
txt = "http://acive.free.fr"
Printer.CurrentY = 3000 'placement vertical sur la feuille
Printer.CurrentX = 1000 'placement horizontal sur la feuille
Printer.Print txt 'impression en attente
Printer.CurrentY = 5000 'placement vertical sur la feuille
Printer.CurrentX = 6000 'placement horizontal sur la feuille
Printer.Print Command1.Caption 'impression en attente
Printer.EndDoc 'met en route l'imprimante
End Sub
Private Sub Form_Load()
Dim XPrint As Printer
'Stoque le nom de l'imprimante par defaut
Command1.Caption = Printer.DeviceName
Printer.FontName = "verdana"
Printer.FontSize = 7
End Sub
-------------------------------
Réponse au message :
-------------------------------
Salut à tous,
actuellement j utilise printform pour imprimer mais le probleme c'est que ca m imprime uniquement ce que j ai à l ecran !!!!
c'est pourquoi je voudrais utiliser l objet printer !! (j ai une flexgrid et 2 combo sur cette form comment imprimer ca pour qur la flexgrid passe sans quelle soit coupée ??
merci a tous
