Results 1 to 2 of 2

Thread: Printing Excel worksheets in Visual Basic

  1. #1

    Thread Starter
    New Member
    Join Date
    Apr 2005
    Posts
    3

    Printing Excel worksheets in Visual Basic

    Can anyone tell me if and how I print an Exceal worksheet using Visual Basic

    I am trying to create a program for someone who does not know anything about Excel so I need a form which can enter name, address etc and some numbers so Excel can perform the calulcations and print them

  2. #2
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709

    Re: Printing Excel worksheets in Visual Basic

    You can use the Excel Object Model to automate Excel from VB 6.
    VB Code:
    1. Option Explicit
    2. 'Add a reference to MS Excel xx.0 Object Library
    3. Private Sub Command1_Click()
    4.     Dim oApp As Excel.Application
    5.     Dim oWB As Excel.Workbook
    6.     Set oApp = New Excel.Application
    7.     Set oWB = oApp.Workbooks.Open("C:\Book1.xls")
    8.     oWB.Sheets("Sheet1").Cells(1, 1) = "My Name"
    9.     oWB.Save
    10.     oWB.Sheets("Sheet1").PrintOut [From], [To], [Copies], [Preview], [ActivePrinter], [PrintToFile], [Collate], [PrToFileName]
    11.     oWB.Close
    12.     Set oWB = Nothing
    13.     oApp.Quit
    14.     Set oApp = Nothing
    15. End Sub
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width