de Printknop

[OvisCantus]

He jongens,

Ik heb al wat posts bekeken en heb ook een knop er uit overgenomen.
Maar ik krijg hem nog niet aan de gang in mijn eigen bestand. (zie voorbeeldje)
Dus daarom dat ik toch even dus vraag plaats; Hoe krijg ik dit voor elkaar?

alvast bedankt, Tom

 

[OvisCantus]

en de bijlage

 

[marcel bosveld]

He jongens,

Ik heb al wat posts bekeken en heb ook een knop er uit overgenomen.
Maar ik krijg hem nog niet aan de gang in mijn eigen bestand. (zie voorbeeldje)
Dus daarom dat ik toch even dus vraag plaats; Hoe krijg ik dit voor elkaar?

alvast bedankt, Tom

 

[alberto10]

OvisCantus,
Plaats onderstaande code in een module.

Sub Afdrukken()
Range("A1:G45").PrintOut
End Sub

 

[OvisCantus]

ik die code in een klassemodule gezet, en dan?
hij doet het nog niet, hoe verbind je dat met de knop?
gr's

 

[Wigi]

Niet in een class module, wel in een gewone module de code plakken. Doe Insert > Module en plak het daar.

 

[OvisCantus]

Bedankt. Hij doet het!
Alleen het afdrukbereik in die code mag weg.
Want die heb ik al voor al mijn werkbladen vastgelegd in onderstaande code.
Welke code zou ik dan kunnen invoegen?


Had al een en 't ander geprobeerd, maar lukte nog niet echt

Private Sub Workbook_Open()
Worksheets(2).PageSetup.PrintArea = "$A$1:$G$45"
Worksheets(3).PageSetup.PrintArea = "$A$1:$G$60"
Worksheets(4).PageSetup.PrintArea = "$A$1:$G$23"
Worksheets(5).PageSetup.PrintArea = "$A$1:$G$20"
Worksheets(6).PageSetup.PrintArea = "$A$1:$G$26"
Worksheets(7).PageSetup.PrintArea = "$A$1:$G$49"
Worksheets(8).PageSetup.PrintArea = "$A$1:$G$64"
Worksheets(9).PageSetup.PrintArea = "$A$1:$G$30"
Worksheets(10).PageSetup.PrintArea = "$A$1:$G$20"
Worksheets(11).PageSetup.PrintArea = "$A$1:$G$37"
Worksheets(12).PageSetup.PrintArea = "$A$1:$G$61"
Worksheets(13).PageSetup.PrintArea = "$A$1:$G$66"
Worksheets(14).PageSetup.PrintArea = "$A$1:$G$19"
Worksheets(15).PageSetup.PrintArea = "$A$1:$G$20"
Worksheets(16).PageSetup.PrintArea = "$A$1:$G$43"
Worksheets(17).PageSetup.PrintArea = "$A$1:$G$60"
Worksheets(18).PageSetup.PrintArea = "$A$1:$G$71"
Worksheets(19).PageSetup.PrintArea = "$A$1:$G$26"
Worksheets(20).PageSetup.PrintArea = "$A$1:$G$27"
Worksheets(21).PageSetup.PrintArea = "$A$1:$G$47"
Worksheets(22).PageSetup.PrintArea = "$A$1:$E$40"
Sheets("Onderdelen").Select
End Sub

 

[Wigi]

In je huidige code zal je de regel met

PrintArea

erin moeten deleten.

Wigi

 

[OvisCantus]

Ik bedoelde dat ik voor ieder werkblad het bereik wil houden en dat ik in deze code

Sub Afdrukken()
Range("A1:G45").PrintOut
End Sub

het afdrukbereik weg wil hebben, zodanig dat deze het nog doet.

 

[Wigi]

ongeteste code

Sub afd()
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.PrintOut
    Next
End Sub

 

[OvisCantus]

Jep, hij werkt.
Alleen heb ik voor ieder werkblad een aparte knop
die dus alleen het desbetreffende blad moet uitdraaien.. sorry, ik ben lastig

 

[OvisCantus]

met deze knop rolt dus het hele bestand eruit

 

[Wigi]

Sorry voor de papierverspilling...

Sub afd()
    ActiveSheet.PrintOut
End Sub

 

[OvisCantus]

Ja perfect,
Wigi, bedankt weer voor je hulp! :thumb:

 

[OvisCantus]

Ik wou nog even terugkomen op de printknop in excel.
Is het mogelijk om de knop zo in te stellen dat hij altijd een bepaalde printer pakt?

In mijn geval heb ik namelijk een PDF-writer ertussen staan.
Op deze manier zou ik makkelijk van het document een PDF kunnen maken.

Groetjes OvisCantus

 

[Wigi]

Zet de naam van je printer hierachter op de puntjes:

Application.ActivePrinter = ...

 

[OvisCantus]

Hoi Wigi,

Deze code staat nu in de module

Sub afd()
ActiveSheet.PrintOut
Application.ActivePrinter = CutePDF Writer
End Sub

Dit is de exacte naam v/d printer.
Moet ik de regel op een andere manier verwerken? , want ik krijg foutmeldingen en doet het niet (de regel wordt ook rood)

 

[Wigi]

Eerst printer zetten, en dan pas PrintOut.

Idealiter bewaar je eerst de huidige printer, zet je de CutrPDF printer, print je uit, en zet je de printer terug op de oorspronkelijke printer (die je bewaard hebt).

 

[Wigi]

Ah ja, tevens "" rond strings:

Application.ActivePrinter = "CutePDF Writer"

 

[OvisCantus]

Hm helaas, heb er de hele tijd mee zitten *****n.
maar de volgende melding verschijnt;

Fout 1004 tijdens uitvoering:
Methode ActivePrinter van object _Application is mislukt

vervolgens geeft hij deze regel daarvoor aan:
Application.ActivePrinter = "CutePDF Writer"