title: How to make XMLTextWriter and XMLWriterSettings work together
body: <p>I have this code for the settings:</p>
  
  <pre><code>Dim settings As XmlWriterSettings = New XmlWriterSettings()
              settings.Indent = True
              settings.OmitXmlDeclaration = True
              settings.NewLineOnAttributes = True
  </code></pre>
  
  <p>Then I have this code for the writer:</p>
  
  <pre><code>Dim xml As New XmlTextWriter(Server.MapPath("output.xml"), enc)
  </code></pre>
  
  <p>Please can you tell me how I make the settings apply to the writer?</p>
  
  <p>Thanks a lot,
  Phil.</p>
  
  <p>EDIT: Code sample</p>
  
  <pre><code>Sub writexml_OnClick(ByVal sender As Object, ByVal e As EventArgs)
      Try
          'Vars
          Dim securityid As String = Input_securityid.Text
          Dim enc As Encoding 
  
          Dim settings As XmlWriterSettings = New XmlWriterSettings()
          settings.Indent = True
          settings.OmitXmlDeclaration = True
          settings.NewLineOnAttributes = True
          settings.Encoding = enc
  
          'Declare the writer and set file name / settings
          Dim xml As XmlWriter = XmlWriter.Create(Server.MapPath("output.xml"), settings)
  
          'start document
          xml.WriteStartDocument()
          xml.WriteComment("")
  
          'start envelope
          xml.WriteStartElement("soap", "Envelope", "http://schemas.xmlsoap.org/soap/envelope/")
          'start body
          xml.WriteStartElement("soap", "Body", Nothing)
          xml.WriteAttributeString("xmlns", "ns1", Nothing, "http://its/foo.wsdl")
  
          'start biographical capture
          xml.WriteStartElement("ns1:biographicalcaptureElement")
  
          'start securityid
          xml.WriteStartElement("ns1:securityid")
          xml.WriteValue(securityid)
          'end securityid 
          xml.WriteEndElement()
  
          'start requestdata 
          xml.WriteStartElement("ns1:requestdata")
  
          'end requestdata
          xml.WriteEndElement()
          'end biographical capture
          xml.WriteEndElement()
  
          'end body
          xml.WriteEndElement()
          'end envelope
          xml.WriteEndElement()
          'end document 
          xml.WriteEndDocument()
  
          'clean up
          xml.Flush()
          xml.Close()
  
      Catch ex As Exception
          errorlbl.Text = ex.ToString
      Finally
          errorlbl.Text = ("Created file ok")
      End Try
  
  
      End Sub
  </code></pre>
  
  <p>It does work fine if I use;</p>
  
  <p><code>Dim xml As New XmlTextWriter(Server.MapPath("output.xml"), enc)</code> </p>
  
  <p>the xml is produced but settings are not applied.</p>