Printing Word Documents in C#

Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
     ' Open the Workbook:
     Dim wb As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open("E:\Personal\Personal\Medical\Card.xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
      Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
      Type.Missing, Type.Missing, Type.Missing)
     ' Get the first worksheet.
     ' (Excel uses base 1 indexing, not base 0.)
     Dim ws As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(wb.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
     ' Print out 1 copy to the default printer:
     ws.PrintOut(Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
      Type.Missing, Type.Missing)
     ' Cleanup:
     GC.Collect()
     GC.WaitForPendingFinalizers()
     Marshal.FinalReleaseComObject(ws)
     wb.Close(False, Type.Missing, Type.Missing)
     Marshal.FinalReleaseComObject(wb)
     excelApp.Quit()
     Marshal.FinalReleaseComObject(excelApp)

Dim ac As New Microsoft.Office.Interop.Word.Application

       Dim app As Microsoft.Office.Interop.Word.Application = ac.Application

       ' I'm setting all of the alerts to be off as I am trying to get
       ' this to print in the background
       app.DisplayAlerts = Microsoft.Office.Interop.Word.WdAlertLevel.wdAlertsNone

       ' Open the document to print...
       Dim filename As Object = "E:\Personal\Personal\Medical\Saravana_Nov_Activities.doc"
       Dim missingValue As Object = Type.Missing
       ' Using OpenOld so as to be compatible with other versions of Word
       Dim document As Microsoft.Office.Interop.Word.Document = app.Documents.OpenOld(filename, missingValue, missingValue, missingValue, missingValue, missingValue, _
        missingValue, missingValue, missingValue, missingValue)

       ' Set the active printer
       app.ActivePrinter = "\\hosfs01\PCSWAP01"
       Dim myTrue As Object = True
       ' Print in background
       Dim myFalse As Object = False
       ' Using PrintOutOld to be version independent
       app.ActiveDocument.PrintOutOld(myTrue, myFalse, missingValue, missingValue, missingValue, missingValue, _
        missingValue, missingValue, missingValue, missingValue, myFalse, missingValue, _
        missingValue, missingValue)

       document.Close(missingValue, missingValue, missingValue)

       ' Make sure all of the documents are gone from the queue
       While app.BackgroundPrintingStatus > 0
           System.Threading.Thread.Sleep(250)
       End While

       ac = Nothing
       app = Nothing
       filename = Nothing
       document = Nothing
       myTrue = Nothing
       myFalse = Nothing

using System;
using System.IO;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Word = Microsoft.Office.Interop.Word;

namespace PdfPrintTest {
    public partial class Form1 : Form {
        public Form1 () {
            InitializeComponent();
        }

        private object oMissing = System.Reflection.Missing.Value;
        private object oDocFileName = @"C:\SB3_document.doc";
        private object oTrue = true;
        private object oFalse = false;

        private void button1_Click (object sender, EventArgs e) {
            object oPrintFileName = Path.ChangeExtension(oDocFileName.ToString(), ".pdf");
            Word.Application app = new Word.ApplicationClass();
            try {
                Word.Document doc = app.Documents.Open(ref oDocFileName, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
                app.ActivePrinter = "Adobe PDF";
                doc.PrintOut(ref oTrue, ref oFalse, ref oMissing, ref oPrintFileName, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oTrue, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
            }
            finally {
                ((Word._Application)app).Quit(ref oMissing, ref oMissing, ref oMissing);
            }
        }
    }
}

<br />
// Create an Application object<br />
Word.ApplicationClass ac = new Word.ApplicationClass();<br />
Word.Application app = ac.Application;<br />
<br />
// I'm setting all of the alerts to be off as I am trying to get<br />
// this to print in the background<br />
app.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone;<br />
<br />
// Open the document to print...<br />
object filename = "d:\\pruebas.rtf";<br />
object missingValue = System.Reflection.Missing.Value;<br />
<br />
// Using OpenOld so as to be compatible with other versions of<br />
// Word<br />
Word.Document document = app.Documents.OpenOld(ref filename,<br />
			ref missingValue, ref missingValue, <br />
			ref missingValue, ref missingValue, ref missingValue, ref missingValue, ref missingValue, ref missingValue, ref missingValue);<br />
<br />
// Set the active printer<br />
//app.ActivePrinter = "HPLaserjet 2300d";<br />
<br />
object myTrue = true; // Print in background<br />
object myFalse = false;<br />
<br />
// Using PrintOutOld to be version independant<br />
app.ActiveDocument.PrintOutOld(ref myTrue, <br />
		ref myFalse, ref missingValue, ref missingValue, ref missingValue, ref missingValue, ref missingValue, <br />
				ref missingValue, ref missingValue, ref missingValue, ref myFalse, ref missingValue, ref missingValue, ref missingValue);<br />
<br />
document.Close(ref missingValue, ref missingValue, ref missingValue);<br />
<br />
// Make sure all of the documents are gone from the queue<br />
while(app.BackgroundPrintingStatus > 0)<br />
{<br />
	System.Threading.Thread.Sleep(250);<br />
}<br />
<br />
app.Quit(ref missingValue, ref missingValue, ref missingValue);<br />