Private Sub p_QueryPageSettings(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.QueryPageSettingsEventArgs) Handles _
      p.QueryPageSettings
        e.PageSettings.PaperSize.Height = 0.1
    End Sub