Printen variabel bereik zonder formules

[Feijtert]

Hallo,

Ik heb een excelsheet waarvan ik de variabele range bepaal en vervolgens een afdruk van laat maken. Het probleem is alleen dat onderstaande code de cellen waarin formules staan ook ziet als 'gevulde cellen'. Heeft iemand een idee hoe ik iets in deze code kan bouwen zoals 'alleen de waarden > 0' meenemen of zoiets? In de bijlage zijn de formules nog niet ingevuld.

Sub VariabelPrintbereik2()

Dim lLaatsteRegel As Long

lLaatsteRegel = Range("B" & Rows.Count).End(xlUp).Row

ActiveSheet.PageSetup.PrintArea = Range("A1:H" & lLaatsteRegel).Address(1, 1)

ActiveSheet.PrintOut

End Sub

Alvast bedankt!

 

[snb]

het simpelst lijkt mij een kopie van het werkblad te maken, de formules te verwijderen en wat je overhoudt af te drukken:

Sub omweg()
  sheets(1).copy
  with activeworkbook.sheets(1)
     .usedrange.value=.usedrange.value
     .pagesetup.printarea=.cells(rows.count,1).end(xlup).resize(,7).address
     .printout
     .parent.close false
  end with
End Sub

 

[Feijtert]

Beste snb,

Bedankt voor je reactie! Ik heb de code geprobeerd, maar deze printte het verkeerde bereik. Ik heb de code nu aangepast (zie onderstaande), alleen nu worden alle witte cellen groen gekleurd in de gekopieerde pagina. Enig idee hoe dit te voorkomen is?

Sub omweg()
Sheets("blanco tellijst").Copy
With ActiveWorkbook.Sheets("blanco tellijst")

Dim lLaatsteRegel As Long
.UsedRange.Value = .UsedRange.Value
lLaatsteRegel = Range("B" & Rows.Count).End(xlUp).Row
.PageSetup.PrintArea = Range("A1:H" & lLaatsteRegel).Address(1, 1)


End With
End Sub

 

[snb]

je hebt de printarea niet nodig met:

Sub kopie()
  Workbooks.Add
  With ThisWorkbook.Sheets("Blanco tellijst")
    .Cells(1, 1).Resize(.Cells(Rows.Count, 2).End(xlUp).Row, 8).Copy ActiveWorkbook.Sheets(1).Cells(1, 1)
  End With
  ActiveWorkbook.sheets(1).PrintOut
End Sub

Verwijder uit je bestand het speciale opmaakprofiel voor de inventarisatie 2009 en de kleuren blijven ongewijzigd.