hvorfor kan jeg ikke få flytte griden væk fra hjørnet.
Jeg har et datagrid som jeg printer ud vedhjælp af følgende kode.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim resultat As New DataSet
resultat = SQLselect("select nr, navn from almen order by nr")
DataGrid1.DataSource = resultat
DataGrid1.DataMember = "Table"
AddHandler PrintDocument1.PrintPage, AddressOf PrintDocument1_PrintPage
Dim dlgsettings As New PrintDialog
dlgsettings.Document = PrintDocument1
Dim result As DialogResult = dlgsettings.ShowDialog()
If result = DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim pfont, ffont, dfont As Font
pfont = New Font("arial", 8, FontStyle.Regular)
ffont = New Font("arial", 12, FontStyle.Bold)
dfont = New Font("arial", 10, FontStyle.Bold)
e.Graphics.DrawString("Startliste For Singel Marathon Herrer", ffont, Brushes.Black, 150, 215)
Dim mypaintargs As New PaintEventArgs(e.Graphics, New Rectangle(New Point(300, 200), Me.Size))
Me.InvokePaint(DataGrid1, mypaintargs)
End Sub
den printer også fint ud men den starter i hjørnet med datagriden, dvs. jeg kan ikke få min overskrift med.
hvad er der galt.
