Replies

Thanks!
Eventually I solved it according this code:

Option Explicit

Public sOldprinter As String
Public sPrev As String
Public sNew As String
Public iLoop As Integer

Public KeuzePrinter As String
Public Sheet1Printer As String
Public Sheet2totEindPrinter As String

Public sPrinterlist() As String
Public iCount As Integer
Public i As Integer

Option Explicit
Sub LongDocuments()

iCount = 0
sPrev = “”
sOldprinter = Application.ActivePrinter
ReDim sPrinterlist(0)

Do While (sPrev = “” Or sPrev sNew)
sPrev = sNew
Application.SendKeys “{home}{down ” & iCount & “}~”
Application.Dialogs(xlDialogPrinterSetup).Show
sPrinterlist(iCount) = Application.ActivePrinter
sNew = sPrinterlist(iCount)
iCount = iCount + 1
ReDim Preserve sPrinterlist(iCount)
Loop
iCount = iCount – 1

Application.ActivePrinter = sOldprinter

For i = 1 To Sheets.Count
Sheets(i).Activate

If i = 1 Then
For iLoop = 0 To iCount
Sheet1Printer = Trim(“adm01HP LaserJet 4050 Series PS Excel Bak3”)
If Sheet1Printer = Trim(Left(sPrinterlist(iLoop), 45)) Then
ActivePrinter = sPrinterlist(iLoop)
End If
Next
ActiveWindow.SelectedSheets.PrintOut
ElseIf i > 1 Then
For iLoop = 0 To iCount
Sheet2totEindPrinter = Trim(“adm01HP LaserJet 4050 Series PCL bak2”)
If Sheet2totEindPrinter = Trim(Left(sPrinterlist(iLoop), 40)) Then
ActivePrinter = sPrinterlist(iLoop)
End If
Next
ActiveWindow.SelectedSheets.PrintOut
End If
Next i

Application.ActivePrinter = sOldprinter

End Sub

Thanks!
Eventually I solved it according this code:

Option Explicit

Public sOldprinter As String
Public sPrev As String
Public sNew As String
Public iLoop As Integer

Public KeuzePrinter As String
Public Sheet1Printer As String
Public Sheet2totEindPrinter As String

Public sPrinterlist() As String
Public iCount As Integer
Public i As Integer

Option Explicit
Sub LongDocuments()

iCount = 0
sPrev = “”
sOldprinter = Application.ActivePrinter
ReDim sPrinterlist(0)

Do While (sPrev = “” Or sPrev sNew)
sPrev = sNew
Application.SendKeys “{home}{down ” & iCount & “}~”
Application.Dialogs(xlDialogPrinterSetup).Show
sPrinterlist(iCount) = Application.ActivePrinter
sNew = sPrinterlist(iCount)
iCount = iCount + 1
ReDim Preserve sPrinterlist(iCount)
Loop
iCount = iCount – 1

Application.ActivePrinter = sOldprinter

For i = 1 To Sheets.Count
Sheets(i).Activate

If i = 1 Then
For iLoop = 0 To iCount
Sheet1Printer = Trim(“adm01HP LaserJet 4050 Series PS Excel Bak3”)
If Sheet1Printer = Trim(Left(sPrinterlist(iLoop), 45)) Then
ActivePrinter = sPrinterlist(iLoop)
End If
Next
ActiveWindow.SelectedSheets.PrintOut
ElseIf i > 1 Then
For iLoop = 0 To iCount
Sheet2totEindPrinter = Trim(“adm01HP LaserJet 4050 Series PCL bak2”)
If Sheet2totEindPrinter = Trim(Left(sPrinterlist(iLoop), 40)) Then
ActivePrinter = sPrinterlist(iLoop)
End If
Next
ActiveWindow.SelectedSheets.PrintOut
End If
Next i

Application.ActivePrinter = sOldprinter

End Sub

Thanks for our reply, but still I have the problem of differences in the name (portnr) of the same printer between workstations.
I want to make one macro that can be used on different workstations. If I have to ‘test” on each workstation how the printer exactly is called by recording a macro, it takes too much time. If I use the printername without “on ne00” the macro doesn’t work.

Have any idea’s

Thank you for your quick reply! Works perfect.

Hallo Bart,

I read you have done an euroconversion. I hope it was also in Access.
Actually a customer of us has an Access database with a field that contains currency in NLG. He wants to convert these to euro’s but keep the history in NLG. I think the only solution is adding a column with the euro in it (based on the column for NLG).
Do you have some suggestions?

Anouk
Nederland

After I had Office 2000 updated to SR1a, I had the same problem. Because I thought it was the SR I uninstalled Office and reinstalled Office 2000 (without SR1a) and I still had the same problem. Then I uninstalled Office 2000 en reinstalled a full version of Office 2000 SR1a and the problem was solved!
I’m curious what the difference is between an upgrade to SR1a and a full version of SR1a, but nevertheless this might be a solution to your problem.

I have discovered a solution!
type the

Finally I have discovered the solution my self.
Type the

Thanks for your reply. I have already installed this euro-update and still no euro in the country settings.

Thanks, but in the meantime I already have updated the printerdriver and no euro from Office 97.