Hi all,
I have a Visual Basic application to print an excel sheet programmatically.
This is the code I have used.

    Dim x1 As New Excel.Application
    x1.Workbooks.Open (fileToPrint)
    x1.Workbooks.Open(fileToPrint).PrintOut
    x1.Workbooks(fileToPrint).Close (False)

But I want to add print page set up before printing.I have to add a row at the top of every page which is being printed. And page set up like orientation, number of copies are to be added as well.
Anybody can give me some sample code to achieve this.
Any help or guidance will be appreciated.
Thank you
Siddiq

Try some of this code - got most of it from the net so it's not tested:

vb6:

Public xlApp As Object
Public xlWbk As Object

Private Sub Command1_Click()

    On Error Resume Next
    Set xlApp = CreateObject("Excel.Application")

    If xlApp Is Nothing Then
        MsgBox "Unable to start Excel."
        Exit Sub
    End If
    On Error GoTo 0

    Set xlWbk = xlApp.Workbooks.Open("F:\book.xls")

    With xlWbk.Sheets(1)
        .Range("A1") = "This is an opened instance of Book.xls."
    End With

' Run macro placed in Excel
    xlApp.Run "myMacro"

' xlApp.Visible = True 'If you do not want it to show then remove this line
    xlApp.Quit 'will close the newly created XL instance

    Set xlWbk = Nothing
    Set xlApp = Nothing

End Sub

To test it try first saving a macro named myMacro in the workbook, e.g.:

MsgBox "Working"

With regards to printdesign I'd recommend you use the macroeditor to get the necessary code. When satisfied place the code in the macro you call from VB6.

Ref.: http://www.mrexcel.com/archive2/60500/70091.htm

Hi Siddiq

You can try this one too

Dim x1 As New Excel.Application
    x1.Workbooks.Open (FileToPrint)
    With x1.ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .Orientation = xlLandscape
    End With
    x1.Workbooks.Open(FileToPrint).PrintOut Copies:=2
    x1.Workbooks(FileToPrint).Close (False)

-vemaju

Thank you vemaju and birger.
My problem is solved. I used your code vamaju.
Thanks a lot