Posts made by garak0410

How's everyone doing out there in Mango Land?

So I am a big SpiceHead / SpiceWorks user...being nearly 13 years as a solo IT Professional/Director., SpiceWorks has been a lifesaver...but today, SpiceWorks asked what other sites we would suggest and I put a big promotion to this site. If I cannot find a SpiceWorks answer there, I can usually find it here with the same, easygoing / non-judgmental spirit.

Please keep the MangoHeads going. If that isn't even a phrase.

For now, I removed the newest Acrobat and reloaded a perpetual 2017 version and it is working again. Clearly something in the last Acrobat Update or maybe a combo of it with Windows Update.

I found a VBScript years ago that will print only the first page of multiple PDF files. You just drag the PDF's over the shortcut to the script and it works...

'//Print first page of pdfs

set WshShell = CreateObject ("Wscript.Shell")
set fs = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments

 

if objArgs.Count < 1 then
msgbox("Please drag a file on the script")
WScript.quit
end if

 

Set gApp = CreateObject("AcroExch.App")
gApp.show '<- comment or take out to work in hidden mod

 

'open via Avdoc and print
for i=0 to objArgs.Count - 1
FileIn = ObjArgs(i)
Set AVDoc = CreateObject("AcroExch.AVDoc")
If AVDoc.Open(FileIn, "") Then
  Set PDDoc = AVDoc.GetPDDoc()
  Set JSO = PDDoc.GetJSObject
  jso.print false, 0, 0, true
  gApp.CloseAllDocs
end if
next

 

gApp.hide : gApp.exit : Quit()
MsgBox "Done!"

 

Sub Quit
Set JSO = Nothing : Set PDDoc = Nothing : Set gApp =Nothing : Wscript.quit
End Sub

This script has worked through Windows 7, 10, 11 and multiple versions of Adobe Acrobat.

Now, the script will not work and it shows this:

Line 25 is this:

Set AVDoc = CreateObject("AcroExch.AVDoc")
So here's the troubleshooting I've done so far before I focused on line 25:

Removed print drivers and reinstalled as either WSD, full drivers and generic drivers (all HP's)
Tried to uninstall recent Windows 11 Updates but it immediatley reinstalls it on reboot.
Ran the script on a Windows 10 machine with a much older copy of Adobe Acrobat and it works.

So I am guessing it has something to do with recently updated versions of Acrobat...which is 2023.006.20320.

So, is this related to recent Adobe Acrobat updates and if so, is there another command to use to "call" Acrobat?

@TeleFox said in SpiceWorld 2023:

@garak0410 I actually decided to go this year. Hoping things will pick back up.. been AFK too long. See ya there.

Last year was "muted" but still good...I can only hope this year will be better...but sad they didn't get "The Spazmatics" to come back for the ACL Party...I hope they are better than last years group.

@scottalanmiller You will be missed!

@JaredBusch said in SpiceWorld 2023:

@garak0410 said in SpiceWorld 2023:

Is anyone going to SpiceWorld 2023? I was able to get the "attached Hilton" and "Flash Sale" for SpiceWorld 2023. Wondering if it may be hard to go with it being Labor Day weekend/week.

I'm going and presenting.
I booked the Hyatt Place outside the room block it was cheaper.

I applied to be a presenter this year and while I wasn't chosen, I was thankful to be considered.

Is anyone going to SpiceWorld 2023? I was able to get the "attached Hilton" and "Flash Sale" for SpiceWorld 2023. Wondering if it may be hard to go with it being Labor Day weekend/week.

I coined a phrase...Unreasonable FU's (Follow Up's) from Management...especially those who don't get IT. Tonight is no different.

By tomorrow morning, I've been asked to add some VBA code to an existing code block/module that saves a PDF in a file location...

When we chose a certain Macrom, it will save the Excel file as a PDF via a Macro...it creates the proper directory based upon Job Number and saves a PDF there through an aging (but functional) PDF creator program...(code below)...

Dim BackToSheet As Worksheet
Const sDefaultCOPath As String = "z:\Change_Orders"

Sub email_Selected()
'
' Email_Selected Macro
' Macro recorded 1/14/2015 by Brian 
'
' Keyboard Shortcut: Ctrl+Shift+E
'
'   Application.CommandBars("Stop Recording").Visible = False
'   Application.Goto Reference:="email_Selected"
'-- Do NOT Save Workbook because if they are in the emplate it can cause problems.   ActiveWorkbook.Save
    Dim spdfname As String
    Dim sPDFNameDir As String
    Dim spdfpath As String
    Dim pos As Integer
    Set BackToSheet = ActiveWorkbook.ActiveSheet ' set current sheet so we can come back to it
'-- First lets get the PDF File Name
    Sheets("Form").Select
    spdfname = Trim$(Cells(4, 3).Value)
    If Len(spdfname) = 0 Then Exit Sub ' nothing to print
    pos = InStr(spdfname, ".") 'test for an extension and remove if there
    If pos > 0 Then
        spdfname = Left$(spdfname, pos - 1)
    End If
    pos = InStr(spdfname, "-") 'test for an extension and remove if there
    If pos > 0 Then
        sPDFNameDir = Left$(spdfname, pos - 1)
    Else
        sPDFNameDir = spdfname
    End If
    Dim sMessageSubject As String, sMessageBody As String
    
            sMessageSubject = "Change Order - " & spdfname
            
            sMessageBody = "Change Order - " & spdfname & " has been attached for your review."
            
    spdfpath = sDefaultCOPath & Application.PathSeparator & sPDFNameDir & Application.PathSeparator
   
 'Look for Directory and create it if it does not exist
        MakeDir (spdfpath)
    
    Call PrintToPDFandEMAIL(True, True, BackToSheet.Name, spdfname, spdfpath, , sMessageSubject, sMessageBody)
'   Reactivate original sheet
    BackToSheet.Activate
    
End Sub

I can get around VBA but often struggle in creating new code...how can I make it also save the file as an excel file in same directory? Is there just an easy line of code I can put in to prompt (or silently) save in the directory by this variable? sDefaultCOPath As String = "z:\Change_Orders"

Thanks!

So let's post our stories, opinions and photos of SpiceWorld 2022.

It was a smaller scale this year for sure but not distractingly so. We were on the opposite end of the convention center so some of the meeting rooms were smaller. The Vendor room seemed smaller but it may have just been the hall we were in.

The showroom closed down an hour before the party, so no cocktails and a place to hang out before going to party.

And the "drinks" showed 2 limit but don't think it was being enforced, especially with 4 stations.

The sessions were good but some where not on the subject you thought they would be.

But overall, it felt "normal"...

My work didn't want to pay for SpiceWorld 2022 this year or let me have it vacation free, so I am going on my own...so need it. Anyone else coming?

I'd love to hang out with Scott and Other "MangoLassi" folks there...

@JaredBusch said in Quick VBA Help Needed:

.InitialFilename = "\fileserver\drafting\logos"

You saved my day...if I see you at SpiceWorld (if you go), I'll make sure to thank you in person...

@Dashrender

I ended up putting a wireless card in that PC for now...quickest fix when I have so much else to do...not sure why the onboard card decided to act up.

I honestly need an exceptionally long nap so prepare for a busy few weeks including SPICEWORLD...

My Steelers play Sunday too so I'm "ready for some football"...

I need to set a default file path in VBA that will go to:

\fileserver\drafting\logos\

When this code is ran...

Option Explicit

Public Sub ImagePicker()
Dim sht As Worksheet, shp As Shape
Dim file As String
Dim fd As FileDialog
Dim t As Single, l As Single, w As Single, h As Single
' get some images
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False
    With .Filters
        .Clear
        .Add "Images", "*.ani;*.bmp;*.gif;*.ico;*.jpe;*.jpeg;*.jpg;*.pcx;*.png;*.psd;*.tga;*.tif;*.tiff;*.webp;*.wmf"
    End With
    If .Show = -1 Then
        file = .SelectedItems(1)
    End If
End With
'change images on each sheets
If Len(file) <> 0 Then
    For Each sht In ThisWorkbook.Sheets
        sht.Activate
        sht.Unprotect
        Set shp = sht.Shapes("logo")
        
        With shp
            t = .Top
            l = .Left
            w = .Width
            h = .Height
            .Delete
        End With
        sht.Pictures.Insert(file).Select
        With Selection
            .Name = "logo"
            .Top = t
            .Left = l
            .Width = w
            .Height = h
        End With
        sht.Protect
    Next
End If
Sheets(1).Activate
End Sub

How do I put that in the code above? Thanks!

Well, on a whim, I went out to this location, plugged in a wireless adapter with the existing IP Info and bam, the camera server could see the TREE, GATE SWITCH and ultimately, the camera. So I guess next is to find out why this was the fix and narrow down on the permanent solution.

@Pete-S said in Camera Server Can't Ping Network Device:

@garak0410 said in Camera Server Can't Ping Network Device:

My unrealistic management said to get this up tonight but I only have access to the camera server which is not pinging the TREE device. So will work with what I've got for now.

You may need to bring out the big guns.

Install wireshark on the camera server and record the network traffic to see what really happens.

If you've never used wireshark before, it will be a good opportunity to learn.

To me the symptoms does sound like a misconfigured subnet mask or something lacking a default gateway somewhere, as @scottalanmiller mentioned. But it could be something else too.

I'll get it installed...it is odd this worked for 2 weeks and then bam, stopped. And yet my laptop connected to the same network (when I am there) can go all the way to the camera.

I am remotely connected to the camera server now so will install Wireshark and will research how to use it in this case...I've used it a few times before.

My unrealistic management said to get this up tonight but I only have access to the camera server which is not pinging the TREE device. So will work with what I've got for now.

I encountered the same thing today.