17/09/08 6:43
sergio58
Di nuovo ben ritrovati a tutti,
il problema che mi affligge oggi è che non riesco a far visualizzare il numero di pagine di un documento nel form anteprima di stampa.
Mi spiego meglio, ho un form MDI padre , da un form figlio chiamo l'anteprima di stampa con questo codice che si trova in un bottone(forse sbagliato):
nel form anteprima c'è il codice che richiama la routine printpage:
ed alla fine della routine di stampa ho messo:
Ho eseguito il debug il numero delle pagine viene passato nel form anteprima , ma non viene visualizzato, perchè dopo :
non visualizza più niente.
Qualche consiglio ?
Sergio
il problema che mi affligge oggi è che non riesco a far visualizzare il numero di pagine di un documento nel form anteprima di stampa.
Mi spiego meglio, ho un form MDI padre , da un form figlio chiamo l'anteprima di stampa con questo codice che si trova in un bottone(forse sbagliato):
Private Documento As Printing.PrintDocument Private sPagina As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStampa.Click Documento = New Printing.PrintDocument AddHandler Documento.PrintPage, AddressOf prtAllegatiCli_PrintPage Dim anteprimaCli As New frmAnteprimaAllegati(Documento) With anteprimaCli .ShowDialog() End With anteprimaCli.Dispose() End Sub
nel form anteprima c'è il codice che richiama la routine printpage:
Dim strTestoPassato As String Public Sub New(ByVal strPagine As String) InitializeComponent() strTestoPassato = strPagine End Sub Public Sub visualizza() lblPagine.Text = strTestoPassato End Sub Public Sub New(ByVal documento As Printing.PrintDocument) InitializeComponent() Me.PrintPreviewControl2.Document = documento End Sub
ed alla fine della routine di stampa ho messo:
If IndiceCiclo < 5 Then Pagina = Pagina + 1 e.HasMorePages = True Else e.HasMorePages = False sPagina = CStr(Pagina) Dim Anteprima As New frmAnteprimaAllegati(sPagina) Anteprima.visualizza() End If
Ho eseguito il debug il numero delle pagine viene passato nel form anteprima , ma non viene visualizzato, perchè dopo :
With anteprimaCli .ShowDialog() End With
non visualizza più niente.
Qualche consiglio ?
Sergio
Ultima modifica effettuata da Il Totem 17/09/08 13:10
aaa