Stampare: Oggetto PrintDocument che fatica ...

giovedì 30 novembre 2006 - 12.12

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ridaria Profilo | Expert

905 messaggi | Data Invio: gio 30 nov 2006 - 12:12

........ hanno reso le stampe IMPOSSIBILI!

ok ragazzi, un aiuto,

Premetto che sto mollando Vb 6.0 per approcciare, gioco Forza, vb net.

L'evento PrintPage dell'oggetto PrintDocument ti permette di inviare alla stampante ciò che vuoi, Stringhe (come nel caso che ho incollato qui sotto, linee, cerchi etc...)

Bene, benissimo funziona!
Ma è statico!!!!!!!!!!!!!!!!!!!
la posizione di stampa sul foglio data dai due interi vedi sotto "3, 3" è sempre la stessa!!!!!!!!

Come faccio a passare in modo dinamico di volta in volta la posizione di stampa cioè le coordinate della stringa che devo stampare????????'??????

Come passo le coordinate di stampa sotto forma di parametro?

Private Sub Pd_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Pd.PrintPage
e.Graphics.DrawString("Stampa da Vb Net", Me.Font, Brushes.Black, 3, 3)

Grazie ragazzi
End Sub

ridaria Profilo | Expert

905 messaggi | Data Invio: gio 30 nov 2006 - 17:43

grazie Marco sei tu stesso l'autore dell'articolo?

Quello lo ho già letto e grazie ad esso sono riuscito a stampare, ma mi occorre di poter inviare di volta in volta le coordinate di stampa altrimenti che faccio??????

Un oggetto PrintDocument per ogni posizione???????????

Me ne occorreranno un paio di migliaia!

Ridaria

ridaria Profilo | Expert

905 messaggi | Data Invio: gio 30 nov 2006 - 17:52

.....

ho fatto una cosa del genere:

un pulsante che clicco :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MOD_Stampa.print_LIne(3, 5, 6)
'Pd.Print()
'PDLine.Print()
End Sub

questo lancia la routine Print_Line
la quale dovrebbe lanciare la:
Private Sub MyPrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage.........

come ho incollato qui sotto, tutto funziona ma non stampa

Helpppppp

Module MOD_Stampa

Dim MyPrintDocument As New PrintDocument()
Dim XPos1 As Integer
Dim XPos2 As Integer
Dim YPos As Integer
Dim WithEvents pDoc As PrintDocument 'Printing.PrintDocument

Public Sub print_LIne(ByVal x_Pos1 As Integer, ByVal x_Pos2 As Integer, ByVal y_pos As Integer)

XPos1 = x_Pos1
XPos2 = x_Pos2
y_pos = y_pos

MyPrintDocument.Print()

End Sub

End Module
Ridaria

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !