Το PrintDocument έχει ένα event. QueryPageSettings.

To event αυτό όταν γίνεται raise μας δίνει πρόσβαση σε μία μεταβλητή τύπου QueryPageSettingsEventArgs. Ένα από τα properties αυτής της μεταβλητής είναι PageSettings.Margins όπου εκεί ρυθμίζεις τα Margins, δηλαδή περιθώρια της εκτύπωσης. Η σειρά αν θυμάμαι καλά είναι αριστερά, επάνω, δεξιά & κάτω. Αν κάνω λάθος διόρθωσέ με όταν το δεις. Παρακάτω σου έχω ένα μικρό κομμάτι κώδικα για να έχεις το αποτέλεσμα που θέλεις.

1
2
3
 

Dim newMargins As System.Drawing.Printing.Margins
  newMargins = New System.Drawing.Printing.Margins(0, 0, 3, 0) 
  e.PageSettings.Margins = newMargins 

Συγνώμη αλλά γράφω σε VB.

Θωμά από ότι βλέπω έχεις βάλει μηδέν σε όλα. Λογικό είναι να μην αλλάζει το περιθώριο. Βάλε (10,0,0,0) για παράδειγμα να το φέρεις δέκα μονάδες πιο μέσα από τα αριστερά.

Έκανα ένα δοκιμαστικό project να το δω και έχεις δίκιο. Στην αρχή ξαφνιάστηκα. Ο μηχανισμός είναι αυτός αλλά έδειχνε ότι δεν δουλεύει και μετά πρόσεξα ένα property επάνω στο PrintDocument control. Το OriginAtMargins το οποίο είναι False. Όταν το έκανα True τότε έπερνε τα Margins που του έδινα. Νομίζω πως αυτό είναι το τελευταίο που σου λείπει.

Ψάχναμε να βρούμε μία λύση και τώρα έχουμε δύο. Μία αυτό που βρήκες και μία ακόμα που ψάχτηκα να βρω γιατί το αριστερό margin δεν πάει πιο αριστερά.

Ο σωστός κώδικας είναι

1
2
3
 

        PrintDocument1.DefaultPageSettings.Margins.Left = 0
        PrintDocument1.OriginAtMargins = True
        PrintDocument1.Print()

Δηλαδή πρώτα λες ότι το αριστερό θέλω να είναι μηδέν, μετά ενεργοποιείς το property έστει ώστε το PrintDocument να πάρει σαν margin αυτό που του δηλώνεις. Αν το κάνουμε ανάποδα, όπως το έκανα, τότε φορτώνει το PrintDocument με το property σε τιμή True οπότε πέρνει το default margin που είναι 100 και ότι margin του δώσεις από εκεί και μετά το προσθέτει στο 100. Για αυτό και δεν πήγαινε πιο αριστερά η εκτύπωση αλλά μόνο πιο δεξιά.