Új hozzászólás Aktív témák

• #1950 ssrobi csendes tag matekmatika #1947

  Új Válasz 2007-02-01 09:42:17 #1950

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ssrobi

  csendes tag

  válasz matekmatika #1947 üzenetére

  Kösziii megkaptam!
  
  de persze mivel igen béna vagyok... továbbra is problémám van.. beírom amit a linket adtál, átjavítgatom, és megáll hibával. Ezt hoztam össze:
  
  Private Sub CommandButton5_Click()
  
  Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
  
  PDF.StartEngine ''demo@demo'', ''demo''
  
  PDF.Filename = Cells(2, 2)
  PDF.AutoLaunch = True
  PDF.BeginDoc
  
  ActiveSheet.PageSetup.PrintArea = ''$B$4:$J$49''
  ActiveWindow.SelectedSheets.PrintOut
  
  PDF.EndDoc
  Set PDF = Nothing
  
  End Sub
  
  Mi lehet a gond? Azon kívül, hogy béna vagyok!

Új hozzászólás Aktív témák