network printer also prints Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub PrintToNetworkPrinterExample()
Dim strCurrentPrinter As String, strNetworkPrinter As String
    strNetworkPrinter = GetFullNetworkPrinterName("HP LaserJet 8100 Series PCL")
    If Len(strNetworkPrinter) > 0 Then ' found the network printer
        strCurrentPrinter = Application.ActivePrinter
        ' change to the network printer
        Application.ActivePrinter = strNetworkPrinter
        Worksheets(1).PrintOut ' print something
        ' change back to the previously active printer
        Application.ActivePrinter = strCurrentPrinter
    End If
End Sub

Function GetFullNetworkPrinterName(strNetworkPrinterName As String) As String
' returns the full network printer name
' returns an empty string if the printer is not found
' e.g. GetFullNetworkPrinterName("HP LaserJet 8100 Series PCL") 
' might return "HP LaserJet 8100 Series PCL on Ne04:"
Dim strCurrentPrinterName As String, strTempPrinterName As String, i As Long
    strCurrentPrinterName = Application.ActivePrinter
    i = 0
    Do While i  -

No	Macro Name
1	network printer also prints
2	excel operators hk
3	Active default printer also prints
4	to activate the desired printer
5	pdf preview
6	Send all pivot tables to printer
7	download files from the internet
8	shows all drivers
9	to run a macro in another book over a network
10	wmi network adapters
11	a3: prints data between cells f15
12	the name of your network connection
13	open excel file on network
14	dial up
15	prints the path and name of the file to the cell
16	remove sheet / page protections
17	prints selected areas on a sheet of paper
18	prints selected areas on a sheet of paper
19	active cell printing
20	a lot of dialog windows

Excel Free Macros (VBA)

Network Printer Also Prints

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords