Så må jeg jo nok hellere lige komme med en løsning:
Dim objExcel As Excel.Application Dim objWorkbook As Excel.Workbook
Private Sub Command1_Click() Set objExcel = New Excel.Application Set objWorkbook = objExcel.Workbooks.Open("d:\h.xls") 'Åbner Excel i baggrunden objWorkbook.Worksheets("1").Range("e38").Value = "Troels" objWorkbook.PrintOut End Sub
Det kræver selvfølgelig, at der er ref. til Microsoft Excel og at Adobe Distiller er default printer. Det sidste kan du selvfølgelig også lige indstillig i dit VB-app.
Det du efterspørger er indstillinger du kan stille i Acrobat Distiller. Du kan som standard ikke ændre i et pdf-dokument, men du kan godt kopiere det der står i dokumentet. Jeg kan ikke lige huske hvor det er du indstiller det således at man ikke kan markere teksten og dermed editere dokumentet i tekstbehandling!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.