Ciao pascan2,
posto due esempi, vedi tu quale funziona meglio:
codice:
'Stampare un grafico prodotto con MsChart
'Se il grafico si chiama ad esempio MSChart1.
'Usa le seguenti istruzioni:
Private Sub Command1_Click()
Clipboard.Clear
MSChart1.EditCopy
Printer.PaintPicture Clipboard.GetData, 0, 5000
End Sub
'Si copia il grafico negli appunti e lo trasferisci alla stampante.
'I valori 0 e 5000 sono le coordinate di stampa.
codice:
'Secondo metodo per stampare un'Immagine:
Private Sub Command2_Click()

Dim imgStampa As StdPicture

Set imgStampa = LoadPicture("D:\Elaborazioni\VBEsempi\StampaGraf\Sfondo.Bmp")

Printer.ScaleMode = 3 '(pixel)
Printer.PaintPicture imgStampa, 50, 50, 380, 285
Printer.EndDoc

End Sub