[VB6]: Stampare un Frame o una PictureBox

[andrea toniolo]

mi potete insegnare ? xD la finestra x sciegliere le stampanti ecc e' di windows o devo crearla io?

vorrei anke i codici

[andrea toniolo]

[LMondi]

'Il controllo CommonDialog può visualizzare le seguenti
'finestre di dialogo, a seconda del metodo specificato.

'Metodo Finestra di dialogo visualizzata
'ShowOpen Apri
'ShowSave Salva con nome
'ShowColor Colore
'ShowFont Carattere
'ShowPrinter Stampa o Opzioni di stampa
'ShowHelp Attiva il motore della Guida in linea di Windows

'Stampare un grafico prodotto con MsChart
'se il grafico si chiama ad esempio MSChart1:
Private Sub Command1_Click()
Clipboard.Clear
MSChart1.EditCopy
Printer.PaintPicture Clipboard.GetData, 0, 5000
Printer.EndDoc
End Sub
'Si copia il grafico negli appunti e lo trasferisci alla stampante.
'I valori 0 e 5000 sono le coordinate di stampa.

'Printer.PaintPicture immagine, X1, Y1, larghezza1, altezza1, X2, Y2, larghezza2, altezza2

'i parametri con l'1 sono quelli della destinazione
'quelli col 2 dell'origine...

'se tu specifichi x1 e y1 stabilisci le coordinate ma non la dimensione.

'Tutti i parametri dopo x1 e y1 sono opzionali, quindi puoi omettere i
'valori dell'immagine sorgente, se vuoi stamparla tutta.

'Secondo metodo per stampare un'Immagine:
Private Sub Command2_Click()

Dim imgStampa As StdPicture
Set imgStampa = LoadPicture("D:\Elaborazioni\StampaGraf\Sfondo.Bmp ")

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

[andrea toniolo]

sono riuscito a fare qualcosa ma non proprio come volevo io
ho usato il secondo metodo

Private Sub Command2_Click()
Set imgStampa = Picture1

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

solo che picture1 non va, se metto picture1.picture funziona alla perfezione solo che io vorrei stampare tutto il contenuto della picture1, quindi label varie, textbox e quant'altro...