Network printers, how?

C

CAA

I have the workbook on the server for all to use, come to print it out
and it needs to go to one particular printer, however all the PC's in
the place use the same names for the printers but have different port
descriptions. I'm not sure what they call it, they have Ne01 or Ne02
etc, at the end. So when you click the print button i've created it
seems to print to any unless i can name it exactly, but doing so
changes it for somebody else.
Have a look at the code and if anyone can help i'd be gratefull.


Private Sub CommandButton6_Click()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Range("a6").Value <> "" Then sht.PrintOut Copies:=1,
ActivePrinter:= _
"\\ELIZABETH\HP DeskJet 1220C Printer on Ne04:"
Next
End Sub

Thanks for looking
 
C

CAA

We only have 1 A3 printer, which is not the default for all the pc's.
However I found a way round this problem, I let the user choose th
printer from the list of available ones by adding one line above m
code.

Application.Dialogs(xlDialogPrint).Show

All's good now & it's home time!! Excellent stuff

Take care
CA
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top