Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Printen  (gelezen 1412 keer)

0 leden en 1 gast bekijken dit topic.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Printen
« Gepost op: 02 juni 2005, 08:27:07 »
Goedemorgen,

In mijn werkblad heb ik een overzicht dat ik elke week aanvul door gegevens in te vullen in de volgende lege kolom.
Het is de bedoeling dat ik elke week een deel afdruk met de laatste 4 kolommen. Dit is afhankelijk van de inhoud van rij 5.

vb.
Als de laatst gevulde cel in rij 5 staat in kolom G dan moet er afgedrukt worden: kolommen D t/m G.
De week daarna wordt in rij 5 in kolom H iets ingevuld, dan moet er geprint worden: kolommen E t/m H.
Het is erg lastig om steeds de voorafgaande kolommen te verbergen en daarna weer zichtbaar te maken.

Het aantal rijen dat moet worden afgedrukt is elke week verschillend. Kan 20 rijen zijn maar dit kunnen ook 30 rijen zijn.

Heeft hier iemand een oplossing voor ?

Bedankt,

Eric
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Printen
« Reactie #1 Gepost op: 03 juni 2005, 12:44:04 »
Dag Eric,

Dat kan. De volgende code legt de print area van een sheet op de laatste 4 kolommen:
Sub Print4C()
Dim lastcol As Integer
With ActiveSheet
    lastcol = .UsedRange.Columns.Count
    .PageSetup.PrintArea = .Range(.Cells(1, lastcol - 3), .Cells(65536, lastcol)).Address
End With
End Sub


Je kan die code dan aanroepen door ALT+F8 en dan "Print4C" te kiezen, of je kan dat automatiseren door de code te laten uitvoeren door een workbook event:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Print4C
End Sub


Voorbeeld in bijlage. Succes,

Bart
WinXP - Excel 2000/XP/2003

 


www.combell.com