Print macro werkt niet (meer)

[yourservice]

Deze ooit goed werkende macro werkt ineens niet meer.

Sub PDFbriefpapier()
'
' PDFbriefpapier Macro
' Afdrukken als .pdf op blanco papier
'

' naam huidig werkblad opslaan

Dim strCurrentWorkBook As String
strCurrentWorkBook = ActiveWorkbook.Name ' stores the current active window

Dim wbCurrent As Workbook
Set wbCurrent = ActiveWorkbook

' testfactuur openen, oude content verwijderen en weer vullen met de huidige factuur
   
    Workbooks.Open Filename:= _
        "D:\foldernaam\foldernaam\Testfactuur.xlsx"
    wbCurrent.Activate
    Range("A1:F49").Select
    Selection.Copy
    Windows("Testfactuur.xlsx").Activate
    ActiveSheet.Paste
    
' printgedeelte

Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' stores the current active (default) printer

Application.ActivePrinter = "Microsoft Print to PDF op Ne00:"                 ' change what is in quotes as per appropriate printer name in the Print Dialog Box
        
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False

Application.ActivePrinter = strCurrentPrinter 'Returns printer output to your default printer

    ActiveWindow.Close savechanges:=False

    Range("A1").Select 'haalt het geselecteerde gebied weer weg door naar A1 te gaan
    
End Sub

De dialoogbox blijft nu hangen op het volgende:


Bij het stap voor stap uitvoeren krijg ik de foutmelding:


Foutopsporing geeft dan een gele balk aan over:

Application.ActivePrinter = "Microsoft Print to PDF op Ne00:"

Iemand enig idee wat er misgaat?

De printer zit zeker op Ne00:, de printernaam is ook letterlijk gekopieerd van de printer eigenschappen.

 

[alphamax]

Een recente windows 10 update heeft ervoor gezorgd dat sommige print problemen kregen.
https://www.computeridee.nl/nieuws/recente-windows-10-update-zorgt-voor-print-problemen/
Als het eerst werkte en nu niet dan zou ik even wachten, misschien komt er nog een update van microsoft.

 

[DigiCafee]

Je bent niet alleen : volg misschien ook best de evolutie in deze post ... https://www.helpmij.nl/forum/showthread.php/954628-VBA-printer-activeren

Wie weet komt er daar een oplossing ?

 

[yourservice]

Na de update gaat de macro voorbij aan de printer, deze zit nu wel op een andere poort

Ne01:

macro dus aangepast, maar daarna blijft hij wederom hangen bij het printen.



Het is vreemd dat de N van Ne01 weggehaald wordt in de afdruk dialoog box, dat was ook al zo bij de Ne00...

Even ter informatie.

 

[Haije]

wellicht heb je hier iets aan:
https://www.helpmij.nl/forum/showthread.php/954628-VBA-printer-activeren

 

[yourservice]

Nog steeds niets, na het deïnstalleren van de betreffende Windows updates en/of het installeren van de windows10.0-kb4567523-x64 update blijft het printen een probleem.

Ook als ik de hele macro opnieuw opneem loopt alles vast.

 

[yourservice]

Als ik deze code stap voor stap uitvoer, kloppen alle stappen en gebeurt er wat er moet gebeuren, een sheet met briefpapierachtergrond wordt geladen en de tekst wordt van mijn huidige document gekopieerd naar deze sheet.

Tot zover dus geen problemen.

Als ik dan verder ga blijft de macro hangen in het printgedeelte.

Als ik echter het openen van de testfactuur weglaat dan wordt er gewoon geprint.

Het gaat dus om de combinatie van de twee waarbij het misgaat!

' testfactuur openen, oude content verwijderen en weer vullen met de huidige factuur
   
    Workbooks.Open Filename:= _
        "D:\foldernaam\foldernaam\Testfactuur.xlsx"
    wbCurrent.Activate
    Range("A1:F49").Select
    Selection.Copy
    Windows("Testfactuur.xlsx").Activate
    ActiveSheet.Paste

 

[alphamax]

Dit werkt bij mij

Public Sub PDFbriefpapier()

    strActivePrinter = Application.ActivePrinter
  
    With ActiveWorkbook
        Range("A1:F49").Copy
    End With

    With Workbooks.Open("D:\foldernaam\foldernaam\Testfactuur.xlsx").ActiveSheet
        .Paste
        .PrintOut ActivePrinter:="Microsoft Print to PDF op Ne01:"
        .Parent.Close False
    End With

    Application.Goto ActiveWorkbook.ActiveSheet.Range("A1")
    
    Application.ActivePrinter = strActivePrinter

End Sub

 

[yourservice]

Dankjewel voor deze beknoptere code alphamax, helaas deed de macro het nog steeds niet.

Totdat... ik gisteren weer wat updates heb uitgevoerd op Windows en nu werkt het weer als een trein!

Bedankt allemaal.

 

[alphamax]

Nu je het zegt.
Er was een windows update die problemen gaf met printen.
Maar dat deze update zelfs problemen gaf met PDF-printers dat wist ik niet.
Blij dat het opgelost is door de update.

 

[harmnaberman]

Yourservice,

Welke code gebruikt u nu om te printen? Ik wil ook printen vanuit een macro.

Wat wil ik doen:
Een opdracht wil ik met een A4 laserprinter printen en het ander met een Dymo labelprinter.

Kan u mij misschien helpen?

 

[alphamax]

@harmnaberman
Het is goed forumgebruik om een nieuwe vraag te maken, en een draadje niet te "kapen".
Je mag natuurlijk wel verwijzen naar deze vraag.
Bij een nieuwe vraag helpen we natuurlijk met alle plezier.