Makro na tisk přes pdf creator Vyřešeno

[MK_Vs]

Dobrý den,

mnohdy mi v případě objektů, které mešli tisknout do PDF z verzí Excel 2007 nebo 2010, pomohlo uložit ne do XLSX, ale do verze 2003 xls. Zavřít, otevřít, tisknout, Poté fungovaly i objekty, které se tisky buď vůbec nebo poškozené. MK

[Reklama]

[cmuch]

Bohužel tento sešit mu nebude šlapat pod 2003. Musel by si ho upravit.

[xkluf300]

Ještě vás trošku budu otravovat, omlouvám se....
Rozhodl jsem se, že by možná nebylo špatné ten soubor pojmenovat nějakým názvem s připojeným datem... Poté to vše exportovat do PDF.
Jenže mám asi zase v kódu někde chybku a nemůžu jí najít....

Kód: Vybrat vše

Private Sub CommandButton1_Click()
    If Button = 1 Then
    Dim Location As String, ThisFile As String
    Location = "C:\Documents and Settings\klus\Plocha\Cenová nabídka " & Format(Now(), "dd/mm/yyyy ")
    If Shift = 2 Then ThisFile = Format(Time(), "hh-mm-ss") Else ThisFile = "Klus"
    ThisFile = Location + ThisFile & ".xlsm"
    Cells(1, 1).Select
   
    ActiveSheet.ExportAsFixedFormat , Type:=x1TypePDF, Filename:=ThisFile, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    Application.DisplayAlerts = False
    MsgBox "Nabídka uložena. " & ThisFile
    Application.Quit
End If
End Sub


[cmuch]

V kodu je tato chyba ActiveSheet.ExportAsFixedFormat , Type:=x1TypePDF, Filename:=ThisFile, Quality:= _
Ta čárka tam nepatří.

[xkluf300]

Moc děkuji, tu chybu bych bez vaší pomocí nenašel. Člověk se tady hodně naučí, díky.