X1 and X2 are the distance from the left edge as you noted. You can redefine them after each line is drawn and draw a new line.
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim X1 As Single, Y1 As Single
Dim X2 As Single, Y2 As Single
Dim Color As Long
' Specify unit of...