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);
            }
        }
    }
}

nano2k wrote:

The problem is that the resulting PDF file is not a valid one (that is, cannot be open with Acrobat reader). For one of my documents, the resulting file has approx. 120KB Sniff
It's strange because if I printed the file by opening the file and clicking "Print" would produce a 7KB file OMG that is perfectly recognized...
 
Any help would be greatly appreciated...
Thanks.