[VB6] Controllo MSFlexGrid non viene stampato (appare nero)

[karl93]

Buongiorno,
ho un problema con la stampa della mia form, in particolare del controllo MSFlexGrid. Quando effettuo la stampa, tutti i controlli al suo interno si vedono in modo chiaro, tranne il controllo MSFlexGrid che è tutto nero. Come mai?

Ecco il codice:

Private Sub mnuStampa_Click()  Dim Risposta As Integer Risposta = MsgBox("Vuoi Stampare?", vbYesNo + vbQuestion, "Scegli!") If Risposta = vbYes Then CommonDialog1.ShowPrinter Command2.Visible = False             Command3.Visible = False             Command4.Visible = False            Command5.Visible = False             Form7.BackColor = vbWhite                         Command1.Visible = False                         Form7.PrintForm ElseIf Risposta = vbNo Then MsgBox "Errore!", vbCritical, "Stampa interrotta" End If  Form7.BackColor = &H8000000F Command1.Visible = True Command2.Visible = True             Command3.Visible = True             Command4.Visible = True             Command5.Visible = True End Sub

[j7-na]

Salve,
anke io ho lo stesso problema. Quando stampo tutta la form, solo il controllo MSFlexGrid è tutto nero...in pratica tutti i valori al suo interno non sono visibili. Forse bisogna cambiare qualche impostazione?

[alka]

Originariamente inviato da karl93
Stampa

Il titolo è del tutto inadeguato: prendi visione del Regolamento per conoscere come vanno indicati.

Qui l'ho corretto io per dare un esempio.

Ciao!

[karl93]

Il titolo è del tutto inadeguato: prendi visione del Regolamento per conoscere come vanno indicati. Qui l'ho corretto io per dare un esempio.

Sorry. Comunque grazie!

Per la stampa in modo adeguato del controllo MSFlexGrid come devo modificare?

[oregon]

Con il codice mostrato in quel modo, non si può rispondere.

[karl93]

Private Sub mnuStampa_Click()  
Dim Risposta As Integer  
Risposta = MsgBox("Vuoi Stampare?", vbYesNo + vbQuestion, "Scegli!")  
If Risposta = vbYes Then  
CommonDialog1.ShowPrinter  
Command2.Visible = False             
 Command3.Visible = False             
 Command4.Visible = False            
 Command5.Visible = False              
Form7.BackColor = vbWhite                          
Command1.Visible = False                          
Form7.PrintForm 
 ElseIf Risposta = vbNo Then 
 MsgBox "Errore!", vbCritical, "Stampa interrotta" 
 End If  
 Form7.BackColor = &H8000000F  
Command1.Visible = True  
Command2.Visible = True             
 Command3.Visible = True             
 Command4.Visible = True            
  Command5.Visible = True  
End Sub

Ho modificato!

[oregon]

I dati contenuti in una griglia non vanno stampati così come sono visti a video.
Non tutti i dati possono essere visibili in un determinato momento e non tutti servono in stampa.

Il primo consiglio quindi è quello di prelevare dalla griglia quelli che ti servono e stamparli utilizzando l'oggetto Printer e i suoi metodi.

Secondo consiglio, se ti basta, scrivi

Printer.PaintPicture MSFlexGrid1.Picture, 0, 0

Terzo consiglio (quello preferito ...), scarica ed utilizza questo

http://www.planet-source-code.com/vb...73982&lngWId=1

[j7-na]

Scusate la mia domanda. Se inserisco così nel codice:

Private Sub Command6_Click() 
Printer.PaintPicture Flex1.Picture, 0, 0 
Form7.PrintForm 
End Sub

Viene stampata tutta la form ma il controllo MSFlexGrid è sempre nero. Invecese inserisco così:

Private Sub Command6_Click() 
Printer.PaintPicture Flex1.Picture, 0, 0
Printer.PaintPicture Flex.Picture, 0, 0 
Form7.PrintForm 
End Sub

Non viene stampato nessun dato dei due controlli MSFlexGrid. Se inserisco così:

Private Sub Command6_Click() 
Printer.PaintPicture Flex1.Picture, 0, 0 
Printer.PaintPicture Flex.Picture, 0, 0
End Sub

Vengono stampati soli i dati del secondo MSFlexGrid(quindi dovrei trovare una soluzione), ma il resto dei controllii non vengono stampati.

Di sicuro sto sbagliando, ma come modificare?

[oregon]

Scusami, ma hai compreso cosa fa un comando del tipo

Printer.PaintPicture

?

Se lo comprendi, ti dai una spiegazione facilmente ....

Se dipingi un quadro, lo cancelli e poi ci dipingi nuovamente sopra, quale immagine vedrai?

[j7-na]

Si in effetti ho sbagliato; ma non ho capito bene come funziona il comando che dici. Come devo risolvere?