Hoi,

Ik heb een bestelbon de moet dienenbinnen een bedrijfje. Deze moet afgedrukt kunnen worden op een printer EN als PDF bestand (met CutePDF) opgeslagen en dat later ook afgedrukt moet kunnen worden.
Het probleem zit 'm in de verscheidenheid aan printers.
Op elke PC hangt een lokale printer en een lokale versie van CutePDF.

Ik zou een macro kunnen opnemen, maar dan moet ik deze op elke locatie (elke Pc binnen het netwerk) gaan uitvoeren, en de code manueel gaan aanpassen; iets waar ik vecht tegenop zie.
Is er een mogelijkheid om dit op een simpele manier op te lossen??

Ik speelde zelf al met het idee om bij de eerste ingebruikname van het Excelblad 2 knoppen aan te bieden. Eentje om de fysieke printer en eentje om de PDF printer te selecteren, deze gegevens ergens op een verborgen blad op te slaan, en dat deze gegevens dan op 1 of andere manier gelezen kon worden als locatie van de printer. Is dit te doen, en zo ja, hoe being ik daar dan aan?

Bestaat er een mogelijkheid om dit eventueel op een andere manier op te lossen?

spyder

Hoi Leo,

Ik "denk" (hoop ) dat ik daar al een beetje verder mee kan. Bedankt daarvoor.

Weet je eventueel ook iets om die printers per Pc op te sporen?

Moest er iets niet lukken hoor je nog van mij.

groetjes

Hallo,

Ja, in VBA blijkt het iets ingewikkelder te zijn.

Option Explicit

Private Declare Function lstrcpy Lib "kernel32.dll" _
Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" _
Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Function EnumPrinters Lib "winspool.drv" _
Alias "EnumPrintersA" (ByVal PrI_Flags As Long, ByVal name As String, ByVal Level As Long, _
pPrinterEnum As Long, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long

Const PRINTER_ENUM_LOCAL = &H2

Private Type PrinterInfo
PrI_Flags As Long
PrI_Description As String
PrI_Name As String
PrI_Comment As String
End Type

Sub ListPrinters()
    Dim longbuffer() As Long
    Dim printinfo() As PrinterInfo
    Dim numbytes As Long
    Dim numneeded As Long
    Dim numprinters As Long
    Dim c As Integer, retval As Long
    Dim PrinterList As String

    numbytes = 3076
    ReDim longbuffer(0 To numbytes / 4) As Long
    retval = EnumPrinters(PRINTER_ENUM_LOCAL, "", 1, longbuffer(0), numbytes, numneeded, numprinters)
   
    If retval = 0 Then
    numbytes = numneeded
    ReDim longbuffer(0 To numbytes / 4) As Long
    retval = EnumPrinters(PRINTER_ENUM_LOCAL, "", 1, longbuffer(0), numbytes, numneeded, numprinters)
        If retval = 0 Then
        MsgBox "Could not successfully enumerate the printers."
        End
        End If
    End If

    If numprinters <> 0 Then ReDim printinfo(0 To numprinters - 1) As PrinterInfo

    For c = 0 To numprinters - 1
        With printinfo(c)
        .PrI_Flags = longbuffer(4 * c)
        .PrI_Description = Space(lstrlen(longbuffer(4 * c + 1)))
        retval = lstrcpy(.PrI_Description, longbuffer(4 * c + 1))
        .PrI_Name = Space(lstrlen(longbuffer(4 * c + 2)))
        retval = lstrcpy(.PrI_Name, longbuffer(4 * c + 2))
        .PrI_Comment = Space(lstrlen(longbuffer(4 * c + 3)))
        retval = lstrcpy(.PrI_Comment, longbuffer(4 * c + 3))
        End With
    Next c

    For c = 0 To numprinters - 1
    PrinterList = PrinterList & vbLf & c + 1 & vbTab & printinfo(c).PrI_Name & vbCrLf
    Next c
   
    MsgBox PrinterList, 64, "Available printers"

End SubDe auteur is me onbekend. Sindsdien heb ik de code ook bewerkt voor klaardere structuur. Bij wijze van voorbeeld een MsgBox, maar wellicht wil je liever de listbox om er één te selecteren.

beste groeten,
Erik

tja,
met API is heel wat te verrichten ...
Mijn Excel-werk doe ik thuis. Dus 1 printer volstaat: vandaar dat ik geen ervaring heb met deze code. Tot zolang er natuurlijk een klant komt opdagen met dit soort vragen. :-)

Application Programming Interface
meer info
https://msdn2.microsoft.com/en-us/library/aa383750.aspx

Spyder, Ik denk dat je gebruik moet maken van de code van Erik om de gebruiker de 2 printers in een listbox te laten selecteren. Deze kan je dan opslaan in een 'naam-cel'. Bijvoorbeeld rngPrinter en rngPrinterPDF.
Vervolgens kan je mijn voorbeeldje gebruiken om zo je afdruk te sturen naar de printer van je keuze (voorbeeld...)Application.ActivePrinter = Range("rngPrinter").value
        ActiveSheet.PrintOut
Vergeet trouwens niet om de invoer van de gebruiker te testen. Het zou namelijk slordig zijn als de gebruiker de 2 'outputs' in de omgekeerde volgorde kiest (dan verwachten ze een print en krijgen een PDF). Ik hoop dus dat de naam die in het bedrijf aan de printers gegeven wordt, altijd gelijk is. Het testen zou dan je met een 'InStr' functie kunnen doen.Sub Test()
Dim sZoekIn As String, sZoekNaar As String
sZoekIn = "PDFprinter"  'of in de sheet naar: Range("rngPrinterPDF").value
sZoekNaar = "PDF"

    Do Until InStr(1, sZoekIn, sZoekNaar, 1) > 0
        MsgBox "Foute printer geselecteerd! Kies de PDF-uitvoer!", vbOKOnly, _
                "Foute uitvoer"
        'je zou hier - ipv de msgbox - de code van erik kunnen plaatsen
        'om de listbox te zien...
    Loop

End Sub

Groet, Leo

EDIT: toevoeging van een InStr functie voorbeeld....

Hoi Eric,

Zeer veel mogelijkheid om uitgebreid te reageren heb i momenteel niet, maar ik krijg hier op dit station binnen het netwerk volgende printers te zien.

HP LaserJet 2100 PCL6 op LPT1:
CutePDF Printer op Ne01:
CutePDF Writer op CPW2:
spyder

Leo & Spyder,

dus we krijgen
"Printernaam op Printerpoort"


probleem kort samengevat
er is een verschil tussen de printernaam "tout court" en de "volledige definitie" met poort er bij

tijd is nu effe op

Wat gebeurt er bij julllie wanneer je "RMT905 (ICT)" (of enige andere echter printernaam) vervangt door "blabla" ?

Ik krijg niet eens een foutmelding, dus had graag geweten of de code wel degelijk een andere printer aanspreekt, wanneer je een "echte" printernaam invult: dat lijkt me logisch, maar een foutmelding bij foute naam leek me ook logisch.