Code loopt vast voor PDF PRINT

grema · 19 aug 2007

Beste,

Heb printknop aangemaakt om een blad naar PDF PRINTER te printen.
Wanneer ik een knop maak voor Range ("A1:J49") alleen , dan lukt dit perfekt.

1) Nu zoek ik echter een knop aan te maken om meerdere Range ' s samen te printen .
Via onderstaande code . Dit lukt niet . Waar loopt het fout ???

Code:

Sub printPDF1235()
 ActiveWindow.SmallScroll Down:=-6
    Range ("A1:J49"), Range("A57:J99"), Range("A152:J204"), Range("K1:P49").Select
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

2) De knop werkt aangemaakt via de Macro-recorder.
Is het noodzakkelijk om de printer te DEFINIEREN. Daar ik deze in bovenstaande
Macro " NIET " tegenkom.

Alvast dank .

grema

wildboy · 20 aug 2007

de oplossing

Hoi,

foutje in de code dit moet het zijn.

Code:

Sub printPDF1235()
    Range("A1:J49,A57:J99,A152:J204,K1:P49").Select
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

ActiveWindow.SmallScroll Down:=-6 is gewoon overbodig
en de verschillende selecties , gescheiden.

:thumb:

PS: Als je niet de standaard printer wil gebruiken heb je wel iets meer code nodig.

grema · 20 aug 2007

Eric,

dank voor de aangepaste code.
Gebruij echter niet de standaard printer. Maar de pdf printer voor deze toepassing.
heb het vermoeden dat deze ook in code moet worden opgenomen of niet ??

Kan je even raad geven ?
grema

Wigi · 20 aug 2007

Zoiets:

Code:

Application.ActivePrinter = "PDF ..." 'naam van de PDF printer

dan printen.

Wel eerst de naam van de huidige ingestelde printer in een variabele zetten, zodat je die na het printen opnieuw kan instellen.

Wigi

grema · 22 aug 2007

Wildboy & Wigi

heb macro opnieuw laten draaien .

Nu kreeg ik de printer ( in dit geval PDF995 ) printer ingesteld.

Alvast dank voor de reacties .

Ps. Elke dag valt er iets bij te leren op het forum ; dankzij de fijne en snelle reacties
Dit verdient een " pluim " :thumb:

grema

wildboy · 23 aug 2007

Hoi Grema,

Heb je nu de PDF printer als standaard printer ingesteld ?
of heb je de code aangepast.

Kwam bij toeval deze code tegen op een ander forum.

Code:

Sub PrintOnPrinter()
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        ActiveSheet.PrintOut
    End If
End Sub

Voordeel dit werk op elke computer het is net zo snel en je hoeft de pdf printer niet als standaard te zetten.

Code:

Sub printPDF1235()
    Range("A1:J49,A57:J99,A152:J204,K1:P49").Select
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        Selection.PrintOut Copies:=1, Collate:=True
    End If
 
End Sub

probeer maar uit ik vind ´m leuk :thumb:
valt me trouwens op dat de vraag over PDF steeds meer voorkomt niet alleen hier maar ook op andere forum´s misschien leuk om daar eens een een Nederlands item over te maken, met alle tips en mogelijkheden.

Wigi · 24 aug 2007

Hoi Eric

Hier wil ik nog wel even iets over vragen.

Waar in jouw code wordt het PDF gedeelte gedaan?

Of ga je ervan uit dat die printer al goed staat?

Wigi

grema · 24 aug 2007

wigi,

heb hierbij volgende code gebruikt omdat ik gemerkt had dat de code van Wildboy

geen printer aangaf. Heb tevens een aanpassing met MSG gemaakt

Code:

Sub printPDFniet4()
    Dim Response
    Response = MsgBox(" Printen naar PDF995 !!! Doorgaan ?", vbYesNo, " Print ?")
    If Response = vbNo Then
    Range("A1:J49, A57:J99,A152:J204, K1:P49").Select
    Application.ActivePrinter = "PDF995 op Ne00:"
    Selection.PrintOut Copies:=1, ActivePrinter:="PDF995 op Ne00:"
    End If
End Sub

Bovenstaande code kan misschien nog beter , heb nog niet verder kunnen testen.

wildboy · 24 aug 2007

Hoi,

Ik krijg een popup schermpje waarin je de printer kan kiezen.
de code is niet van mezelf zoals al vermeld maar heb het uitgeprobeerd met de code van grema en het werkt perfect, misschien heeft dit te maken met de versie ik gebruik office 2003
ook in 2007 werkt het gewoon.

grema · 25 aug 2007

Eric,

ik draai nog onder Office 2000 en krijg dus geen POP -up schermpje voor keuze van printer. Vandaar vastgelegd in VBA code.

Bedankt voor de opmerking in OFFICE 2003 .

Is een update naar Office 2007 zo verschillend en beter ???

grema

wildboy · 25 aug 2007

Hoi Grema,

Werkt het nu zoals je wil ?

2007 is zeker verschillend van alle voorgaande versies ,vooral veel zoeken waar alles zit..
beter tje er zijn wat meer mogelijk heden en als je er helemaal aan bent gewend is het misschien ook nog beter, het een totaal andere manier van werken veel dingen op een andere plaats...etz.. dus kortom erg wennen vandaar dat ik 2003 nog niet de deur uit heb gedaan.

als je wil overstappen van 2000 dan zou ik toch gaan voor 2007 de stap is toch al redelijk groot maar als je er dagelijks mee werkt zal het snel wennen..je hebt immers altijd nog dit forum :thumb:

grema · 25 aug 2007

eric

De code werkt zoals verwacht. Thanks for the helping hand.

Wat betreft de overstap naar EXCELL 2007... wacht nog even en bekijk het forum op
mogelijkheden en reacties.

Groet

grema

WIMLIN · 28 aug 2007

PDF Print

wildboy zei:
Hoi Grema,

Kwam bij toeval deze code tegen op een ander forum.

Code:

Sub PrintOnPrinter() If Application.Dialogs(xlDialogPrinterSetup).Show Then ActiveSheet.PrintOut End If End Sub

Geweldige deze code:thumb::thumb:. Ik zat zojuist na 3 weken vakantie weer op helpmij.
Ik werk heel erg veel met pdf printen maar af en toe moet ik het wel eens printen op papier of op een andere machine printen in pdf.

De macro loopt dat altijd vast op deze code:

Code:

Application.ActivePrinter = "Adobe PDF op Ne01:"

Ne01 is blijkbaar op elke machine anders. Maar met deze code wordt het hopelijk voor mij een stuk beter.

wildboy · 28 aug 2007

Hoi Wimlin,

Weer iemand blij met de code

Ja de uitkomst kan inderdaad op elke computer verschillend zijn.
op computer A is het bv ne00 op de ander ne04
Ik zat met het zelfde probleem.

Wel ben ik benieuwd onder welke versie je werkt.
ik weet zeker dat het werkt onder 2003 en 2007
en dat het niet werkt onder 2000
maar werkt het wel op XP ???

vast bedankt voor je reactie

WIMLIN · 28 aug 2007

PDF print

Eric,

Ik werk met 2007 daar verschijnt inderdaad die box.

Kan jij mij misschien ook helpen met deze topic:

HTML:

http://www.helpmij.nl/forum/showthread.php?t=308543

Excel 2007 werkt trouwens wel super traag bij grote bestanden heb jij ook die ervaring?

wildboy · 28 aug 2007

Op dit moment heb ik nog weinig ervaring met 2007
gebruikt het thuis en dat zijn kleine bestanden..beetje uitproberen etz..
maar heb er meer mensen over gehoord.

ga als ik weer op mijn werk kom over 2 weken even kijken of het ook met XP werkt.
bedankt voor je snelle reactie

WIMLIN · 30 aug 2007

PDF print

Wildboy/Eric,

Ik probeer jou code te gebruiken. Maar bij mij gaat er blijkbaar iets verkeerd. Misschien kan je nog een keer helpen.

Code:

'
' PrintenKK17609 Macro
' Printen Kostenkaarten 17609 B.U. Limburg
'

'
    Sheets("Voorblad").Select
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "17609 B.U. LIMBURG"
    ActiveSheet.Next.Select
    ActiveSheet.PivotTables("Draaitabel3").PivotFields("B.U.").ClearAllFilters
    ActiveSheet.PivotTables("Draaitabel3").PivotFields("B.U.").CurrentPage = _
        "17609 B.U. LIMBURG"
    ActiveSheet.Next.Select
    ActiveSheet.PivotTables("Draaitabel4").PivotFields("B.U.").ClearAllFilters
    ActiveSheet.PivotTables("Draaitabel4").PivotFields("B.U.").CurrentPage = _
        "17609 B.U. LIMBURG"
    Sheets(Array("Voorblad", "Totaal", "Periode")).Select
    Sheets("Periode").Activate
    
    Sub PrintOnPrinter()
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        ActiveSheet.PrintOut
    End If
    End Sub
    
    
    'Application.ActivePrinter = "Adobe PDF op Ne01:"
    ' ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF op Ne01:"",,TRUE,,FALSE)"
    Sheets("Macro").Select
    Range("C6").Select
End Sub

De Macro werkt goed als ik werk zonder jouw code van sub print t/m End sub.

Wat doe ik verkeerd? De foutmelding is Compileerfout: Er wordt End Sub verwacht.

wildboy · 31 aug 2007

hey hey,

ff kijken hoor. volgens mij mis ik nog een stukje code bovenaan maar dat maakt niet uit.

Een macro begint met Sub blabla() en stopt bij End Sub.

Wat je volgens mij gedaan hebt is mijn code incl sub. en end sub onder jou code geplakt.

WIMLIN · 31 aug 2007

code loop vast voor pdf print

Eric,

Maar wat moet ik dan weghalen.

Voor die tweed sub komt de foutmelding.

wildboy · 31 aug 2007

hey hey,
ben ook niet zo'n expert hoor maar als dit 1 macro is (lijken er meer

) en ik mis bovenaan een sub
dan moet dit het zijn:

Code:

[COLOR="Lime"]Sub blabla()[/COLOR]

' PrintenKK17609 Macro
' Printen Kostenkaarten 17609 B.U. Limburg
'

'
    Sheets("Voorblad").Select
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "17609 B.U. LIMBURG"
    ActiveSheet.Next.Select
    ActiveSheet.PivotTables("Draaitabel3").PivotFields("B.U.").ClearAllFilters
    ActiveSheet.PivotTables("Draaitabel3").PivotFields("B.U.").CurrentPage = _
        "17609 B.U. LIMBURG"
    ActiveSheet.Next.Select
    ActiveSheet.PivotTables("Draaitabel4").PivotFields("B.U.").ClearAllFilters
    ActiveSheet.PivotTables("Draaitabel4").PivotFields("B.U.").CurrentPage = _
        "17609 B.U. LIMBURG"
    Sheets(Array("Voorblad", "Totaal", "Periode")).Select
    Sheets("Periode").Activate
    
   [COLOR="Red"] Sub PrintOnPrinter()[/COLOR]
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        ActiveSheet.PrintOut
    End If
   [COLOR="Red"] End Sub[/COLOR]
    
    
    'Application.ActivePrinter = "Adobe PDF op Ne01:"
    ' ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF op Ne01:"",,TRUE,,FALSE)"
    Sheets("Macro").Select
    Range("C6").Select
End Sub

Groen toevoegen rood er uit.

Code loopt vast voor PDF PRINT

Gebruiker

Gebruiker

Gebruiker

Inventaris

Gebruiker

Gebruiker

Inventaris

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Gebruiker

Wij waarderen jouw privacy