gedeelte van een sheet printen

[thst]

Hallo Allemaal,

ik heb een code die aangepast moet worden, vele mogelijkheden geprobeerd maar lukken doet het niet. Hij zou de range van D5:G20 niet moeten printen.


ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"

Sub print1()
Application.ScreenUpdating = False
Blad2.[A1:R1000].PrintOut , , 1 ' bepaal hier tussen [......] de range van het blad
Application.ScreenUpdating = True
End Subprinten



Wie helpt me verder ?

Angela

 

[Haije]

bedoel je dat de regels 5 t/m 20 niet in de print voor mogen komen?

 

[thst]

Nee,

cellen D5 t/m D20, E5 t/m E20, F5 t/m F20, G5 t/m G20

mogen niet geprint worden.

Angela

 

[Haije]

dan kan ik maar één oplossing bedenken:

voor het afdrukken de kleur van het lettertype op "wit" zetten.
Na de printopdracht kan de range dan weer de normale letterkleur krijgen

 

[thst]

Helaas dat kan niet, het is een afbeelding

Angela

 

[Ginger]

Nee,

cellen D5 t/m D20, E5 t/m E20, F5 t/m F20, G5 t/m G20

mogen niet geprint worden.

Angela

Dit kan niet!

Groet, Leo

 

[thst]

Hallo Allemaal,

Ik heb een code en die zet een plaatje in mijn sheet, alleen hij maakt het plaatje zo klein dat het in een cel staat ik zou het plaatje in d2:f5 willen hebben.

Kan iemand de code wijzigen ?

Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("D:\Mijn documenten\Mijn afbeeldingen\GevelCalesberg.jpg")
On Error GoTo 0
If Not pic Is Nothing Then
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
.Placement = xlMoveAndSize
End With
End If
End Sub


Angela

 

[thst]

Hallo Allemaal,

Wie kan deze code een vaste range geven waar de afbeelding komt te staan ?
De afbeelding mag een range hebben ban B22:F35

Private Sub CommandButton1_Click()
Dim ImgFileFormat As String, pic As Variant
On Error Resume Next
Application.DisplayAlerts = False
Set rng = Application.InputBox("Selecteer bereik", "Foto invoegen", , , , , , 8)
ImgFileFormat = "Image Files jpg (*.jpg),*.jpg,(*.bmp),others, tif (*.tif),*.tif"
Set pic = ActiveSheet.Pictures.Insert("c:\a2b4u_214x173.jpg")
If Not pic Is Nothing Then
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
.Placement = xlMoveAndSize
End With
Else: Exit Sub
End If
Application.DisplayAlerts = True
End Sub


Angela

 

[trucker10]

Angela , met deze ?

Private Sub CommandButton1_Click()
Dim ImgFileFormat As String, pic As Variant
On Error Resume Next
Application.DisplayAlerts = False
[COLOR="Red"]Set rng = Range("B22:F35")[/COLOR]
ImgFileFormat = "Image Files jpg (*.jpg),*.jpg,(*.bmp),others, tif (*.tif),*.tif"
Set pic = ActiveSheet.Pictures.Insert("c:\a2b4u_214x173.jpg")
If Not pic Is Nothing Then
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
.Placement = xlMoveAndSize
End With
Else: Exit Sub
End If
Application.DisplayAlerts = True
End Sub

 

[thst]

Trucker10,

ja dat is ie.

[A1].currentregion.clearcontents

dit is een code om kolom A1 leeg te maken, ik wil iets hebben om de Range("B13:F35") leeg te maken.

Angela

 

[trucker10]

Trucker10,

ja dat is ie.

[A1].currentregion.clearcontents

dit is een code om kolom A1 leeg te maken, ik wil iets hebben om de Range("B13:F35") leeg te maken.

Angela

Als deze moet dienen om de jpeg weg te halen zal je dit moeten gebruiken

[B22:F35].Delete

dit zet je net boven

Set Rng = Range("B22:F35")

 

[thst]

Helaas, dat werkt niet, en hij geeft ook geen foutmelding. !


Angela

 

[thst]

Trucker10,

Werkt wel, had in de tussen tijd alweer mijn range aangepast

Heel erg bedankt

Angela

 

[Wigi]

Graag de vraag nog op opgelost zetten en tevens de vraag om

 tags te gebruiken!