probleem met xlBitmap

[GFA]

Hallo allemaal,
Ik krijg alleen een blanco vel, wat doe ik fout?

Groet Gerard.

Sub Factuur_bewaren()

Dim klant As String
Dim Datum As String
Dim tijd As String
Dim filenaam As String

Application.ScreenUpdating = False
' hier word de beveiliging even opgeheven.
ActiveSheet.Unprotect

Range("F1").ClearContents
Range("D14").Select
' naam klant staat in in vak D14
klant = ActiveSheet.Range("D14").Value
' neemt de dag van vandaag en vomt die om tot een string
Datum = DateValue(Date)
Datum = Format(Date, "yyyy-dd-mm")
' neemt het huidige tijdstip aan elkaar uu-mm-ss
tijd = Format(Time, "hhmmss")
' samenstelling filenaam geen overschrijving mogelijk door tijdsnotatie
filenaam = klant & "-" & Datum & "-" & tijd & ".xls"
'geeft filenaam op het werkblad
ActiveSheet.Range("F1").Value = filenaam
' bewaar file onder de naam
ChDir "D:\Facturen\"

'Application.DisplayAlerts = False

' Kopiebestand aanmaken
'--------------------------------------------------
On Error Resume Next
fmta = Application.ClipboardFormats
Sheets("Factuur").Select
Range("B2:J60").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Workbooks.Add
Range("B2").Select
ActiveSheet.Pictures.Paste.Select
Range("A1").Select
'----------------------------------------------------------------------
' Kopiebestand opslaan
On Error GoTo FoutBijOpslaan
'If Bestandsnaam$ > "" Then ActiveWorkbook.SaveAs Bestandsnaam$
On Error GoTo 0

ActiveWorkbook.SaveAs Filename:= _
"D:\Facturen\" & filenaam, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
' is voor GEEN meldingen te krijgen bij het sluiten.
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Application.DisplayAlerts = True

Range("D14").Select
MsgBox "File is opgeslagen"
' hier word de sheet weer beveiligd.
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Range("A1").Select

GoTo EindeBoeking

FoutBijOpslaan:
Resume Next
'Afdrukken
EindeBoeking:
'NieuweFaktuur

End Sub

 

[Ginger]

Ik krijg alleen een blanco vel, wat doe ik fout?

...als eerste natuurlijk dat je je code niet tussen code-tags (#) zet...

Heb je je code al 'ns dmv F8 doorlopen? Zo kan je regel voor regel zien wat er gebeurt. Is een héle leerzame ervaring!
Zo vraag ik me bijvoorbeeld af waarom je eea als een plaatje zou willen opslaan?

Groet, Leo

 

[GFA]

Hallo Ginger en anderen natuurlijk,

Wat bedoel je met code-tags?
Ik heb de code door gelopen met F8, interessant, verhelderend.
Ik wil graag het zelfde bereiken als een pdf niet meer aanpasbaar, vind de belasting niet zo leuk.

Vriendelijke groet,
Gerard.